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CHAPTER  1 


BACKGROUND 

COMPUTER  ASSISTED  INSTRUCTION  IN  BASIC 

ISSUE 

The  Tactical  Air  Forces  recently  decided  to  purchase 
1500  Cromemco  microcomputers  For  use  at  the  wing  level 
(Coward,  Cokerly  and  others, S2).  Headquarters  Air  Training 
Command  (HQ  ATC)  will  soon  Follow  suit  with  another 
smal 1 -computer  buy  (Weber, S3).  The  TAF  purchase  was  based, 
in  part,  on  the  recommendations  From  a  Feasibility  study  by 
Automated  Data  Processing  personnel  From  the  Tactical  Air 
Command  (Coward,  82).  The  study  had  been  initiated  because 
oF  numerous  reports  that  local  agencies  had  purchased  small 
computers  and  successFully  used  them  to  do  word  processing, 
aircrew  Flight  planning,  and  simple  data  base  management 
duties  (Carter  and  Nunley,  81;  Coward, 82).  The  study 
investigated  the  Feasibility  o F  using  mi crocomputers  to 
automate  some  oF  the  more  time  consuming  tasks  commonly 
encountered  in  the  wings.  Concern  about 

non-standardization,  security,  and  duplication  oF  eFFort 
when  the  computers  were  installed,  led  the  diFFerent 
commands  to  Form  small  computer  oFFices  as  Focal  points  For 
the  distribution  and  control  oF  the  computers.  The 


requirement  for  receipt  of  one  of  the  computers  was  a 
submission  of  a  OAR  (Data  Automation  Requirement)  by  the 
unit  (the  DAR,  in  this  case,  was  a  formal  request  which 
outlined  a  specific  purpose  for  the  computer),  and  approval 
of  the  OAR  by  the  appropriate  MAJCQM.  Software  support  was 
limited  to  off-the-shelf  packages.  All  of  the  computers 
were  purchased  with  Beginners  All  Purpose  Instruction  Code 
(BASIC),  a  word  processor  and  a  data  base  management 
program.  After  purchase ,  the  computers  were  considered 
stand  alone  systems  and  no  increase  in  manpower  to  support 
them  was  authorized  (TACR  300-12,  SAC  300-4). 

Since  the  decision  to  purchase  the  units, 
approximately  400  have  been  installed  at  a  cost  of  000 
to  20,000  dollars  each.  The  cost  was  determined  by 
number  of  peripherals  (printers,  plotters,  disk  drives, 
etc.)  that  were  requested  with  computers  (Coward, 82).  The 
expected  workload  for  the  computers  is  light  and  the 
machines  will  be  available  for  other  mission-related  tasks 
if  the  users  are  able  to  create  some  of  their  own  software 
(Lyon ,  83) . 


PROBLEM 


The  wings  do  not  have  enough  programmers 
program  the  computers,  and  the  programmers  who 
identified  are  not  dedicated  to  the  system,  so 


avai lable 
have  been 
they  will 


to 
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not  be  replaced  when  they  leave  for  other  assignments.  Most 
personnel,  though  very  interested  in  the  new  machines,  are 
not  familiar  enough  with  programming  techniques  to  produce 
adequate  software  (Cokerly,  82).  Thus,  when  the  programmers 
leave,  expertise  to  write,  maintain,  and  update  mission 
related  programs  will  be  lost.  The  commands  need  to 
establish  a  program  to  train  users  in  one  of  the 
programming  languages.  The  training  program  needs  to  be 
self  supporting,  and  require  no  additional  manpower.  It 
must  familiarize  new  personnel  with  the  computer  and  its 
capabilities,  and  give  a  non-programmer  a  solid  core  of 
general  knowledge  in  a  programming  language  (Cokerly,  83; 
Lyon , 83 ) . 

The  QASIC  programming  language  is  the  best  choice  for 
training  new  operators  how  to  program  because  BASIC  is 
available  on  virtually  every  microcomputer  (the  Cromemcos 
purchased  by  the  Air  Force  included  a  dialect  of  BASIC 
called  Microsoft  BASIC) .  Another  reason  for  BASIC  is  that 
many  good,  mission-related  programs  have  already  been 
written  in  it,  showing  the  language's  capability  to  quickly 
do  time  consuming  tasks  (Carter,  Nunley,  81).  Additionally, 
the  popularity,  usefulness,  and  ease  of  modification  of 
BASIC  programs  has  caused  the  senior  members  of  the  Air 
Force  to  approve  BASIC  as  an  accepted  programming  language 
(HQ  USAF  Message,  82) .  These  reasons  have  led  to  a 
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consensus  by  HQ  TAC  personnel  that  a  CAI  (Computer  Assisted 
Instruction)  program  in  the  BASIC  language  would  provide 
the  most  effective  solution  for  the  microcomputer  training 
problem.  The  best  dialect  of  BASIC  to  use  would  be  the 
Microsoft  BASIC  dialect  because  it  is  available  on  the 
majority  of  microcomputers  (Burke,  SS;  Blackwood,  82 ; 

Lewis,  B2;  Welch  and  others,  82). 

Colonel  Lyon,  TAC  DOZ ,  formally  outlined  the  problem 
in  his  letter  dated  7  February,  1S83.  He  explained  the 
problem  with  keeping  new  personnel  trained  on  the  computer 
systems,  and  suggested  that  a  thesis  effort  directed 
towards  developing  a  CAI  program  in  Microsoft  BASIC  for  the 
newly  purchased  Cramemco  computers  could  satisfy  the  needs 
of  his  personnel  and  be  cost  effective  for  the  Air  Force. 
During  a  telephone  interview,  he  also  stated  that 
commercial  programs  were  not  a  good  choice.  A  commercial 
package  was  hard  for  each  unit  to  purchase  (each  software 
purchase  has  to  go  through  the  formal  DAB  process) ,  and  the 
programs  could  not  be  distributed  to  other  agencies  because 
of  copyright  restrictions .  Colonel  Lyon  felt  that  a 
program  developed  specifically  by  the  Air  Force  would  be 
more  likely  to  include  those  items  which  the  Air  Force 
considers  important,  and,  the  software  could  be  distributed 
without  concern  for  copyright  infringement,  royalties,  etc. 

A  review  of  current  CAI  in  BASIC  revealed  limited 


resources  adaptable  to  the  problem.  The  only  commercial 
package  available  was  the  Tandy  Level  II  BASIC  instruction 
package.  It  was  not  a  CAI  program  (it  was  not  advertised  to 
be  one)  and  it  was  machine  dependent  (it  was  made  For  the 
TF1S-30  system)  .  It  required  little  Feedback  From  the 
responder ,  did  not  give  adequate  examples,  and  made  no 
provision  For  scoring  or  reporting  on  a  student's  progress. 
It  was  a  compendium  oF  deFinitions  oF  computer  terms  that 
were  intended  to  be  read  by  the  user  on  a  video  terminal. 
This  program  was  too  limited  to  be  used  as  a  continuing 
training  program. 

The  Focal  point  oFFices  For  microcomputers  were 
interviewed  to  Find  out  whether  other  agencies  were 
developing  a  CAI.  Lt  Coward,  HQ  TAC  AQMUQS,  was  not  aware 
oF  any  related  research .  Major  Cokerly,  Air  StaFF  SO-I, 
also  conFirmed  that  a  CAI  was  needed,  but  he  was  not  aware 
oF  any  available  in  the  Field.  Programmers  at  the  oFFices 
For  computer  development  and  training  systems  For  the  Air 
Force,  at  Keesler  AFB ,  Mississippi,  have  developed  a  CAI 
Far  BASIC  an  the  Honeywell  computer.  However,  their  program 
is  very  machine  dependent  (it  is  written  in  assembly 
language)  and  could  not  be  transFerred  to  microcomputers . 
Searches  with  other  sources,  revealed  similar  need  and 
interest  in  a  CAI  program,  but  none  available. 


RESEARCH  QUESTION 


How  can  a  Computer  Assisted  Instruction  program  be 
developed  for  the  new  Cromamco  microcomputers  that  provides 
sufficient  instruction  to  transform  a  non-programmer  into  a 
programmer  competent  enough  to  write  mission  related 
programs?  The  CAI  would  have  to  be  simple  enough  to  adapt 
to  different  Cromemco  systems,  be  updated  easily  (or 
customized  as  necessary),  yet  thorough  enough  to  cover  the 
crucial  elements  of  BASIC,  and  still  be  appropriate  for  an 
audience  with  little  training  in  computer  concepts.  The 
problem  can  be  broken  down  into  three  steps. 

The  first  step  would  be  research  of  the  current 
literature  on  both  general,  and  BASIC  programming  language 
CAI .  Included  would  be  those  techniques  which  are 
compatible  with  a  microcomputer  system  and  appropriate  for 
the  intended  military  audience. 

The  second  step  would  be  the  development  of  the 
"frames”  for  the  program.  A  CAI  frame  is  a  portion  of  a  CAI 
program  that  contains  a  single  learning  event.  The  events 
are  typically  broken  into  information,  question,  student 
response,  and  feedback/answer  sentences  ( Meredi th , 7 1 ; 
Freedman , 8 1 ) .  A  microcomputer  usually  has  limited  memory 
and  storage  space.  The  Cromemco  machines,  when  BASIC  is 
implemented,  have  around  33  kilobytes  (33k)  of  memory.  In 
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addition,  the  off  line  storage  of  microcomputers  is 
sometimes  limited  to  one  or  two  small  floppy  disk  drives 
(Coward,  82) .  Therefore,  an  exhaustive  instruction  in  the 
language  would  not  be  possible,  because  there  would  not  be 
enough  room  for  the  program  in  the  computer.  The  frames 
would  have  to  be  isolated  into  main  topics  which  would 
sufficiently  instruct  the  student  in  the  language,  yet 
still  fit  within  the  storage  space  and  memory  limitations 
of  a  one  disk,  33k  machine. 

The  third  step  would  involve  the  coding  and  debugging 
of  the  CA1  program  itself.  While  the  frames  should  be 
simple  to  code,  there  will  have  to  be  hundreds  of  them  to 
adequately  caver  the  subject.  Such  a  large  program  will 
need  careful  debugging  to  eliminate  errors.  Consultation 
with  non-programmers  to  ensure  "user  friendliness",  and 
using  their  feedback  to  fine  tune  the  CAI ,  would  conclude 
the  research  and  development  of  the  CAI  program . 
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CHAPTER  2 


METHODOLOGY 

THE  CAI  TECHNIQUES  ON  A  MICROCOMPUTER 

When  the  designer  of  instructional 
materials  confronts  the  task  of 
preparing  a  CAI  program,  he  places 
instructional  design  in  a  new  context, 
that  of  computer  programming. 

[Holtzman,  70) 

Computer  assisted  programming  has  much  in  common  with 
other  programmed  instruction  [PI)  methods.  However,  it  has 
new  perspectives  and  limitations  which  increases  both  the 
student's  learning  and  the  instructor’s  work.  Silvern, 
Holtzman,  and  other  educators  have  developed  outlines  for 
approaching  a  CAI  problem.  In  their  instructions  on  how  to 
use  these  outlines,  they  emphasize  that  one  hour  of 
interactive  computer  assisted  instruction  can  take  the 
place  of  many  hours  of  classroom  time.  Additionally,  one 
hour  of  CAI  may  take  hundreds  of  hours  of  programming  and 
development  by  teams  of  instructors,  researchers,  and 
programmers.  In  this  chapter,  I  will  develop  a  methodology 
for  making  a  CAI  package  for  the  BASIC  language.  Because  I 
do  not  have  the  research  time  needed  to  develop  new 
techniques,  I  will  concentrate  on  using  proven  methods 
which  can  be  used  on  a  microcomputer . 

The  Air  Force  has  been  interested  in  how  to  use  CAI 
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effectively  since  the  early  1970s.  They  formed  an  office  at 
Kessler  AFB  in  Mississippi  (the  CDTS  section  of  the  3300 
Technical  Training  Wing}  dedicated  to  finding,  developing 
and  distributing  different  CAI  programs  (Ashby,  83).  This 
office  has  developed  guidelines  on  proper  CAI  methods  to 
use  in  their  Air  Force  CAI  projects.  I  have  used  these 
guidelines  to  develop  my  CAI  program. 

In  addition  to  the  CDTS  procedures,  the  TAC  small 
computer  office  has  published  a  guide  on  programming 
standards  for  microcomputers  for  TAC.  This  unique  guide  is 
a  first  attempt  to  standardize  BASIC  programming.  It 
applies  to  this  paper  because  the  standards  it  outlines,  as 
well  as  the  COTS  standards,  must  be  considered  to  ensure 
the  finished  CAI  program  satisfies  the  constraints  of  all 
agencies  that  may  wish  to  use  it. 

The  University  of  Alaska  has  donated  a  CAI  package  on 
BASIC  to  the  Air  Force  (Carew,81).  Developed  on  a 
mainframe  using  a  special  purpose  instructional  language, 
the  BASIC  dialect  it  teaches  is  not  compatible  with 
Microsoft  BASIC.  It  references  devices  and  equipment  not 
available  with  a  microcomputer .  However,  the  outline  it 
uses  is  readily  adaptable  to  my  project.  By  using  it  as 
guide,  but  substituting  my  own  text  and  test  items,  I  have 
avoided  the  lengthy  process  of  developing  and  validating  a 
new  approach  to  CAI  in  BASIC. 
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To  develop  the  methodology  I  have  considered  the 
guidelines  to  effective  CAI  ,  as  outlined  by  Holtzman  and 
others,  applied  this  to  the  standards  developed  by  Keesler 
CDTS  and  TAC  Small  Computer  Office,  and,  using  an  outline 
based  on  the  University  of  Alaska  program,  modified  the 
result  as  needed  to  fit  on  a  microcomputer . 

Educators  have  developed  models  for  creating  CAI 
programs  (Holtzman  and  Silvern, 70).  These  models  generally 
break  down  the  design  of  CAI  into  five  major  areas  of 
consideration.  These  areas  are  as  follows: 

The  CAI  author  must  consider  the 

1.  Intent  and  justification  of  the  CAI 

a.  Needs  and  goals  of  the  CAI 

b.  Target  audience 

c.  Institutional  constraints 

2.  Physical  Constraints  on  Design  of  CAI 

a.  Operational/equipment  constraints 

b.  Installation  constraints 

3.  Development  of  the  CAI  draft 

a.  Frame  design 

b.  Questioning  techniques 

c.  Scoring  of  student  responses 

4.  Coding  of  the  CAI  program 

5.  Validation. 

An  elaboration  of  each  of  these  areas  and  how  they 
apply  to  this  paper  follows. 
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Needs  and  Goals  Determination.  The  needs  and  goals  of 


the  CAI  program  were  discussed  in  the  previous  chapter.  In 
summary,  the  Air  Force  needs  a  computer  assisted 
instruction  program  which  teaches  the  BASIC  programming 
language . 

Student  Papulation  Description.  The  target  audience 
is  composed  of  members  who  are  at  least  high  school 
graduates.  Because  they  oluntarily  use  the  computer  to 
ease  their  workload,  they  can  be  considered  motivated  to 
learn  the  primary  programming  language  of  the  computer 
(Lyon ,  33) . 

Institutional  Constraints.  The  biggest  institutional 
constraint  is  the  time  needed  to  develop  the  program .  The 
MAJCOMs  have  had  to  wait  several  months  for  the  final 
product.  This  was  an  unavoidable  constraint.  However,  the 
minimal  costs  of  the  package  have  made  the  delay 
acceptable . 

Physical  Constraints  on  Design  of  CAI 

Qperational/equipment .  The  program  library  was 
developed  so  that  it  requires  only  one  floppy  disk  for 
offline  storage.  Therefore,  any  s^  item  that  has  at  least 
one  disk  drive,  and  one  terminal  should  be  able  to  install 
the  package.  Most  systems  which  support  Microsoft  BASIC 
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have  this  configuration  as  a  minimum  C Coker ly , 83 ) .  Because 
the  program  is  primarily  concerned  with  BASIC  and  not  with 
the  type  of  equipment  used,  it  is  written  so  it  is 
compatible  with  one  other  popular  microcomputer ,  the 
TRS-80.  (the  program  will  run  on  the  Apple  if  it  is 
configured  with  a  280  CPU  card  -  see  the  Apple  operating 
manuals  for  further  explanation  of  how  to  run  Microsoft 
BASIC  on  that  equipment].  This  will  enables  the  package  to 
run  on  the  microcomputers  which  make  up  the  majority  of 
microcomputer  installations  (Cokerly,  83;  Coward,  82; 

Greene ,  82 ] . 

The  types  of  terminals  and  floppy  disks  vary  with 
brand  names  of  equipment,  so  a  program  cannot  be  easily 
transferred  from  one  brand  name  to  another,  even  if  the 
program  is  in  the  same  language  dialect.  For  instance, 
Cromemco  floppy  disks  cannot  be  used  in  a  system  that  only 
supports  Apple  disk  operating  systems.  Theref ore ,  the  files 
had  to  be  transferred  using  a  medium  that  is  common  to  most 
computers.  The  easiest  and  most  common  method  for 
transferring  programs  to  dissimilar  equipment,  is  to  send 
them  via  telephone  modem  hookups.  The  CAI  package  was 
developed  on  a  TRS-80  system,  and  transferred  to  the 
Cromemco  system. 

Installation  Constraints.  The  installation  constraints 
deal  mainly  with  the  distribution  of  the  software,  and 
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periodic  review  to  ensure  it  is  current. 


The  program  will 


be  given  to  the  major  command  microcomputer  focal  points 
for  inclusion  in  their  software  libraries.  Distribution 
and  updates  will  be  the  responsibility  of  the  focal  point 
offices  in  cooperation  with  the  different  users.  The 
program  will  be  written  in  accordance  with  the  TAC 
guidelines  so  that  it  can  be  updated  as  needed  by  any 
competent  BASIC  programmer. 

Development  of  the  CAT  Draft 

Frames.  CAI  and  PI  experts  agree  that  any  CAI  should 
be  flowcharted  prior  to  development.  This  provides  a 
systematic  outline  for  the  programmer /author  and  alleviates 
many  conceptual  problems  early  in  program  development. 

After  outlining,  each  major  block  is  broken  down  into 
frames.  A  frame  is  a  complete  question  and  answer 
sequence,  or  a  complete  teaching  point  (Lysaught,  63; 
Meridith,  71;  Burke,  82).  It  has  the  answer  to  every  test 
item,  and  it  indicates  where  transfer  of  the  program  goes 
for  the  different  response  possibilities  of  the  question. 

Questioning  techniques  (test  items).  Almost  any  type 
of  test  item  can  be  used  in  CAI.  The  limiting  factors  are 
the  amount  of  memory  required  to  store  the  possible  test 
answers  (Hoitzman  and  Silvern, 70).  It  would  be  obvious  from 
this,  that  essay  answers  would  be  very  demanding  of  memory, 
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and  multiple  choice,  matching,  true-false,  or  one  word 
responses  would  be  more  memory  conservative  CBurke,82). 
Because  of  the  equipment  limitations  discussed  earlier,  I 
have  not  used  essay  questions. 

Scoring.  The  program  must  provide  for  record  keeping 
of  the  scores  of  different  students,  especially  if  access 
to  the  system  is  contingent  upon  successful  completion  of 
training  -  as  may  be  the  case  in  some  organizations.  The 
program  uses  a  simple,  sequential  file  update  system,  which 
scores  the  student  after  completion  of  each  block  of 
questions.  A  separate  utility  program  prints  out  a  record 
of  all  student  scares. 

Coding  of  the  CAI  Program 

The  program  is  too  large  to  fit  into  memory  all  at 
once,  so  the  program  must  include  features  which  keep  track 
of  where  the  student  is,  where  he  wants  to  go,  what  his 
score  is,  and  what  module  of  the  program  to  load  next.  The 
student  may  progress  through  the  program  at  his  own  pace 
and  in  any  order  he  chaoses. 

Validation 

The  CAI  program  was  validated  at  several  stages  during 
its  development.  As  each  block  was  completed,  it  was  tested 
at  AFIT.  The  purpose  of  the  initial  testing  was  to 
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eliminate  logic  errors  in  the  CAI  program  itself. 


Therefore,  the  target  audience  during  the  debug  phase  was 
knowledgeable  in  what  makes  a  good  program  .  The  program 
will  be  sent  to  the  focal  point  offices  and  released  for 
testing  within  the  commands.  Feedback  from  these  offices 
will  be  used  to  revise  the  programs  as  needed. 
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CHAPTER  3 

CAX  PROGRAM  FORMAT 

PROGRAM  LIBRARY 

There  are  30  programs  that  make  up  the  CAI .  There  are 
six  lessons  (each  lesson  has  two  parts),  six  tests,  six 
score  files,  four  homework  assignments,  one  menu,  and  one 
training  report  maker.  The  programs  require  about  350 
kilobytes  of  disk  space,  and  they  fit  on  three  data  disks 
for  the  TRS-80  or  on  two  double  sided,  double  density 
Cromemoo  disks.  The  rest  of  this  chapter  describes  their 
purpose,  their  flowcharts,  the  subjects  they  teach,  and 
their  limitations. 


Program  Purpose 

Program  Name 

1.  Lessons  1,  la,  and  test  1 


2.  Lessons  2,  2a,  and  test  2 


3.  Lessons  3,  3a,  and  test  3 


4.  Lessons  4,  4a,  and  test  4 


Purpose 

Teach 

Introduction  to 
BASIC  and  Computer 
terms 

Teach 

saving  programs  to 
disk,  REMARKS,  and 
branching . 

Teach 

Loops,  Arrays .  and 
DIM  statements 

Teach 

Printer  commands  G 
Sequential  File  I/O 
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5.  Lessons  5,  5a,  and  test  5  .  Teach 

Subroutines  and 
Library  Functions 

6.  Lessons  6,  Ba  ,  and  test  B  .  Teach 

String  Functions, 

S  Microsoft  Editor 

7.  Menu  .  Lets  student  select 

sequence  of  lessons 

fl.  Training  Report  program  .  Makes  a  hard  copy 

report  of  student 
scares 

9.  Score  files  1  through  B  .  Hold  student  scores 

10.  Homework  assignments  2  thru  5  ....  Gives  student  extra 

practice  in  tech¬ 
niques  of  lesson. 

F lowcharts 
Lessons 

The  flowcharts  for  the  lessons  are  all  the  same.  Each 
section  of  a  lesson  is  a  subroutine  which  is  called  by  the 
lesson  menu.  The  student  selects  whether  to  take  each 
section  in  fixed  order,  or  review  selections  in  the  order 
of  his/her  choosing.  If  the  lesson  is  taken  in  fixed 
order,  the  subroutines  are  called  one  after  another  without 
showing  the  menu.  If  the  sections  are  reviewed  according 
to  the  student’s  desires,  then  the  menu  is  displayed  after 
each  section  is  completed.  In  both  cases,  the  student  has 
the  option  to  continue  to  the  next  part  or  review  the 
section  just  seen.  The  fallowing  flowchart  represents  the 
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main  menu  program,  the  one  after  it  represents  lessons  one 
through  six: 


Flowcharts  For  Lessons  One  Through  Six 


SMTciC 


TEXT 
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cita'ce  I 


(V\c^U  CMCict> 


I ,  TAk-fc  kfcSsoA/ 


,kj  FutcO  &eAt*S 
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Go sutJ  Sccncw 


Ctosuil  scene /v 


Goiai?  Scerriew  n 
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Scene  aJ 
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rn£A/‘wt 
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SttTiC 


MctJU 


IVPUT 


Q,orv 

we*  f 

rrltiT 


M 
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Tests  1-S 


The  flowcharts  for  the  tests  are  all  the  same.  Each 
test  is  10  questions  long,  and  seven  questions  must  be 
answered  correctly  to  pass  the  test.  If  the  test  is  passed, 
the  student  may  have  the  computer  write  their  name  and 
sco*-e  to  the  appropriate  disk  file. 

The  score  file  is  a  sequential  file,  so  all  updates 
must  be  done  by  reading  the  entire  file  to  memory,  changing 
the  data,  and  writing  it  back  to  disk.  The  program  is 
dimensioned  to  handle  10Q  students. 


Flowchart  For  Tests  One  Through  Six 
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Report  Program 

The  report  program  reads  in  all  the  scores,  assigns 
them  to  the  proper  students,  and  prints  out  a  summary  to 
the  monitor  or  to  the  line  printer.  IF  a  student  hasn't 
completed  a  test  For  one  oF  the  lessons,  a  set  oF  asterisk 
appears  For  the  test  score.  The  user  oF  this  program  has 
the  option  oF  receiving  the  report  with  student  names  in 
alphabetical  order .  A  sample  report  is  on  the  Following 
page  . 
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e.e./vo  all 

(o 

Sec  At  HUES 


1 


G  C/vxiv/ 

N AmEi  5 

S  t'cCC  s 


CAI  IN  BASIC 
07/31/83 


REPORT  DATE: 


NAME  TEST  1  TEST  2  TEST  3  TEST  4  TEST  5  TEST  B 


CROMEMCO  10  3  2  9  3  777 

CURLY  S  2  9  5  2  8 

0.0.  4  4  6  777  777  2 

DAN  777  7  5  777  5  4 

□AN  C.  10  7  9  3  7 

□AVID  777  777  3  5  6  10 

GOLIATH  777  5  3  B  45 

LARRY  1672  8  77* 

MOE  8  3  3  777  4  4 

POSEY  777  777  3  777  777  777 

TEST  S  777  7  7 7  7 7 7  7  7 7  7  7  7 

WIDGET  777  6  777  777  777  777 


END  OF  PROGRAM  -  HIT  BREAK  OR  CONTROL  C  TO  QUIT 
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Index  of  Subjects 

The  following  index  lists  the  main  subjects,  as  shown 
in  the  lesson  menus.  The  reference  on  the  right  indicates 
what  lesson,  and  what  part  of  the  lesson,  the  subject  is 
taught . 


Subject  Name  Lesson3/Part 

1.  Advanced  FOB  NEXT  .  2/1 

2.  Arrays  .  3/2 

3.  Arrays  (intro)  .  3/2 

4.  Branching  Introduction  .  2/2 

5.  CLEAR  .  3/2 

6.  CLOSE  .  4/2 

7.  Comparing  Variables  .  1/2 

Q.  Concatenation  .  6/ 1 

9.  Counter  Variables  .  2/1 

10.  DATA  .  2/2 

11.  OELETE  .  1/1 

12.  DIMension  .  3/2 

13.  EOF  .  4/2 
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14.  Editing  Text  .  6/2 

15.  END  S  STOP  .  1/1 

16.  Filenames  .  1/2 

« 

17.  FOR  NEXT  .  3/1 

18.  Functions  Overview  .  5/2 

19.  General  Information  .  1/1 

20.  GOSUB  .  5/1 

21.  GOTO  .  2/2 

22.  IF  .  2/2 

23.  Immediate  Mode  .  1/1 

24.  INPUT  .  1/2 

25.  INPUT#  .  4/2 

26.  I(nsert)  .  6/2 

27.  KILL  .  3/1 

28.  Library  Functions  .  5/2 

29.  Library  Functions  (intro]  .  1/2 

30.  LIST  .  1/1 

31.  LLIST  .  4/1 

32.  LOAD  .  2/1 

33.  Loops  .  3/1 

34.  LPRINT  .  4/1 

35.  Nested  Subroutines  .  5/1 

36.  NEW  .  1/1 

37.  Numeric  Variables  (intro)  .  1/2 

38.  ON  GOSUB  .  5/1 
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39.  OPEN  .  4/1 

40.  PRINT  .  1/1 

41.  PRINT#  .  4/2 

42.  REAO  .  2/2 

43.  REMark  .  2/1 

44.  RESTORE  .  2/2 

45.  RETURN  .  5/1 

46.  RUN  .  2/1 

47.  SAVE  .  2/1 

4S .  Sequential  Files  .  4/1 

49.  Software  .  1/1 

50.  Statements  and  Programs  .  1/1 

51.  String  Arrays  .  6/1 

52.  String  Assignment  .  6/1 

53.  String  Functions  .  6/1 

54.  String  Variables  (intro)  .  1/2 

55.  Subroutines  .  5/1 

56.  User  Defined  Functions  . 5/2 

57.  Using  Arithmetic  in  Computers  .  1/2 

58.  Variables  (general)  .  1/2 

59.  nC(hange)  .  6/2 

60.  nO(elete)  .  6/2 

61.  nS(earch)  .  6/2 

62.  nSPACEBAR  .  6/2 

63.  X  ( tend )  6/2 
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Program  Limitations 


The  purpose  of  the  CAI  program  is  to  give  a  student  a 
solid  core  of  knowledge  about  BASIC.  From  this  core,  the 
student  can  continue  his/her  own  education,  concentrating 
in  any  area  of  interest.  The  following  areas  are  not  fully 
explained  in  the  CAI.  This  list  could  serve  as  an  outline 
for  further  study  for  the  student. 


AREA  NOT  INCLUDED  IN  CAI  APPLICABLE  BASIC  WORDS 


1.  Formatted  printing 

2.  Direct/Rnd  Access 


PRINT  USING 

FIELD,  GET,  PUT,  LOF 
QPEN”R" , 1 , " If  n" 

LSET ,  RSET 

POINT,  SET,  RESET 
CTRS-80) 

SAVE  "lfn" , A 

CSAVE,  CLOAD  CTRS-80) 

ON  ERROR  GOTO, ON  ERROR 
GOSUB,  RESUME, ERR , ERL 

DEFDBL ,  DEFSNG , 

DEFINT,  CVI, 

CVS  CVD ,  CDBL  ,  CSNG , 
CINT 


3.  Graphics  . 

4.  ASCII  code  . 

5.  Tape  input/output 
S.  Error  trapping  .. 


7.  Defining  precisian 


8.  Merging  programs  .  MERGE 


9. 


Screen  clearing 


CLS 


10.  Line  renumbering 


NAME  (TRS-80), 
RENUM  C C/PM ) 


11.  Memory  Modification  .  PEEK,  POKE 

12.  Internal  Clock  .  TIMES,  CLOCK  (TRS-80) 

13.  Port  addressing  .  INP,  OUT 

14.  Logical  Operators  .  AND,  OR,  NOT 

15.  Variable  Location 

in  core  memory  .  VARPTR 

This  list  is  not  exhaustive,  but  indicates  those  areas 
I  feel  are  important  enough  to  warrent  further  study,  but 
not  appropriate  for  a  beginning  course  in  BASIC.  The  next 
chapter,  Recommended  Areas  for  Further  Research,  outlines 
some  other  ideas  which  would  include  some  of  these  topics. 


30 


CHAPTER  4 


RECOMMENDED  AREAS  FOR  FURTHER  RESEARCH 

As  we  saw  in  chapter  three,  the  CAI  in  BASIC  does  not 
transform  a  non-programtner  into  a  professional.  It  acts  as 
an  introduction  to  BASIC  and  leaves  much  of  the  more 
complicated  programming  methods  to  be  studied  on  the 
student's  own  time.  It  also  does  not  teach  the  student 
about  the  computer  operating  system,  special  purpose 
programs  (like  word  processors),  about  the  different 
utilities  available  on  a  microcomputer,  or  about  the 
differences  between  Microsoft  BASIC  and  other  dialects. 
These  areas  would  be  ideal  for  further  research  and 
development.  The  specific  research  questions  would  include 
the  following: 

1.  Could  a  CAI  program  be  mated  to  an  audio 
visual  presentation  to  increase  the  feedback 
am d  student  interaction;  thus,  increasing 
the  potential  for  learning? 

2.  Can  a  CAI  program  be  developed  to  teach  the 
C/PM  wardprocessing  system,  Wordstar? 

3.  Can  a  CAI  program  be  developed  to  teach  the 
data  base  manager  program  (dBASE  II)  purchased 


31 


for  the  Cromemco  computers? 

4.  Can  a  CAI  program  be  developed  to  teach  the 
Cromemco  operating  system  (CRQMIX)? 

5.  Can  a  CAI  program  be  developed  that  would 
teach  an  intermediate  level  of  BASIC,  so 
that  programming  data  bases,  statistical 
programs,  and  other  applications  can  be 
made  easier  For  the  new  programmer? 

S.  How  can  the  effectiveness  of  the  CAI 

in  BmSIC  be  measured  once  the  program  is 
in  the  field? 

7.  What  are  the  main  differences  in  the 

BASIC  dialects,  and  can  a  translator  program 
be  developed  that  would  transform  a  BASIC  from 
one  dialect  to  another?  This  would  eliminate 
having  to  teach  several  different  dialects 
to  new  programme rs .  New  programs  could  be 
transformed  to  one  dialect,  say  Microsoft, 
and  then  adapted  for  use  by  programmers  who 
were  proficient  in  that  language. 

Each  of  these  areas  would  offer  a  significant 
improvement  to  keeping  new  people  trained  on  the 
microcomputers  that  have  become  a  part  of  the  Air  Force. 
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APPENDICES 
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APPENDIX  A 


installation  INSTRUCTIONS  FOR  THE  CAI 
PROGRAM  LIBRARY  ON  THE  TRS-80  AND 
CROMEMCO  MICROCOMPUTERS 
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TR8-8D  INSTRUCTIONS 


These  instructions  assume  that  you  are  Familiar  with 
the  computer  operating  system.  IF  you  are  not,  ask  a 
programmer  For  help  in  starting  the  lessons. 

The  CAI  comes  on  three  disks.  Make  a  backup  oF  all 
three  disks  beFore  you  attempt  to  use  them! 

This  version  oF  the  CAI  is  built  to  run  only  on  the 
Model  IV  TRS-80.  However,  iF  you  have  a  Model  II,  12,  or 
16,  you  may  run  it  without  modiFication  iF  you  use  a  modem 
and  download  the  library  From  the  three  5  inch  Floppy 
disks,  or  From  the  Cromemco  double  sided  disks.  IF  you  want 
a  version  of  the  CAI  that  runs  on  the  TR5-80  Model  I  or 
III,  please  contact  me  at  the  416  Bombardment  Wing, 

AircraFt  Maintenance  Area,  GriFFiss  AF3,  NY,  aFter  October, 
1933,  and  I  will  supply  you  with  one. 

To  run  the  program,  turn  on  the  TnS-8Q,  put  TRSOOS 
system  disk  » 1  in  drive  0  and  press  the  reset  button.  The 
program  will  start  automatically.  Follow  the  instructions 
careFul ly . 

All  the  programs  needed  For  lessons  one,  two,  three, 
and  Four  are  on  disks  one  and  two.  Programs  For  lessons 
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five  and  six  are  on  disk  three. 


When  you  gat  to  lessons 


two  through  five, you  will  have  the  choice  of  printing  out 
some  sample  homework  problems  to  the  lineprinter.  If  you 
don't  want  to  do  that,  there  are  examples  of  the  homework 
programs  in  Appendix  □. 

The  report  program  is  on  Disk  #1.  It  uses  the  score 
files  generated  by  all  the  tests  to  create  a  training 
report.  The  test  scores  are  also  on  disk  #1.  To  start  the 
program ,  get  to  BASIC  and  type  in  RUN”REPORT" .  The  program 
will  lead  you  from  there. 
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CROMEMCO  INSTRUCTIONS 


These  instruction  assume  you  are  Familiar  with  the 
Cromemco  operating  system.  IF  you  are  not,  ask  a  programmer 
to  help  you  transFer  the  lessons  to  your  directory . 

The  Cromemco  lessons  come  on  one  double  sided  Floppy 
disk  using  the  COOS  operating  system.  Make  a  backup  oF  the 
disk  before  you  attempt  to  use  it!  IF  you  are  using  the 
CROMIX  multi-user  system,  you  must  use  the  COOSCOPY  command 
to  copy  the  disk  into  a  user  directory  (one  way  is  : 
cdoscopy  -r  sFda  v.bas  scorel  score2  score!  score4  score5 
scoreB) .  IF  you  are  using  CDOS ,  then  the  disk  may  be 
treated  as  an  ordinary  data  disk. 

IF  your  BASIC  is  set  up  with  deFault  extensions  For 
BASIC  ( ie ,  iF  you  save  a  File  From  BASIC  and  the  extension 
.BAS  is  automatically  appended)  the  program  will  run  as  is. 
IF  you  do  not  have  automatic  extensions  in  BASIC,  then  you 
must  rename  all  the  Files  so  that  the  ".BAS"  extension  is 
removed . 

To  start  the  lessons,  get  the  programs  mounted  in  your 
system,  go  to  BASIC,  and  type  in  RUN  "MENU".  The  student 
can  select  a  lesson  and  take  it  From  there.  The  program 
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will  run  without  anymore  help. 


When  the  homework  programs  are  run ,  ( lessons  two 

through  five)  ,  the  student  will  have  the  option  of  printing 
out  the  homework  assignment  to  the  lineprinter.  Be  sure 
the  lineprinter,  or  letter  printer,  is  linked  to  the 
student's  terminal,  turned  on,  and  loaded  with  at  least 
three  sheets  of  paper  before  these  lessons  are  run. 

To  run  the  training  report  program,  go  to  BASIC  and 
type  in  RUN  "REPORT"  and  follow  the  directions. 
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APPENDIX  B 

PROGRAM  LISTINGS  FOR  THE  CAI 
PROGRAM  L I OR ARY 


■ 
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TABLE  OF  CONTENTS 


PAGE 


MENU 


LESSON  ONE  part  1 


LESSON  ONE  part  2 


TEST  ONE 


LESSON  TWO  part  1 


LESSON  TWO  part  2 


TEST  TWO 


LESSON  THREE  part  1 


LESSON  THREE  part  2 


TEST  THREE 


LESSON  FQUH  part  1 


LESSON  FOUR  part  2 


TEST  FOUR 


LESSON  FIVE  part  1 


LESSON  FIVE  part  2 


TEST  FIVE 


LESSON  SIX  part  1 


LESSON  SIX  part  2 


TEST  SIX 


40 


tern  Listing  of  Prograe  ’MENU’  ttttt 


07/10/83  -  00:59:51 


10  REX  tt  THIS  PROGRAM  STARTED  OH  27  MARCH  1983 
15  REH  ♦*  MODIFIED  FOR  LDOS  DOUBLE  SIDED  DRIVE  OK  20  JUNE  1983 
20  REM  tt  AUTHOR  -  CAPT  D.  CREA6AN  -  AF1T 
30  REM  »*  TITLE  -  MENU  PROGRAM 


40  REH  tt 

50  REM  »•  SUBROUTINES): 


aO  PEM  #t 
70  REM  t* 
80  REM  »» 
90  REM  »» 
100  REH  tt 
110  REM  *t 
1.0  REH  tt 


SOSUB  21000  *  ROUTINE  TO  CLEAR  SCREEN 
THE  CLEAR  SC ?EE:t  FUNCTION 
IS  NON-STANDARD.  THIS 
SUBROUTINE  PRINTS  24  LINE 
FEEDS  TO  INSURE  SCREEN  IS 
CLEARED  ON  MOST  TERMINALS 


130  REH  *t 
140  SOSUB  520 

150  PRINT*  COMPUTER  ASSISTED  INSTRUCTION  IN  BASIC* 

160  PRINT 

170  PRINT’  is*:  Captan  Dan  Creagan* 

•  30  PRINT  *  Air  Force  Institute  of  Technology" 

i»0  PRINT 

;..;•  PRINT’This  is  the  *enu  Tor  computer  assisted  instruction* 

210  PRINT'in  BASIC.  It  is  leant  to  he  used  mth  a  BASIC  sanual  or  *ith* 
220  PFlNT'an  etpenencei  oroaraner  available  Tor  consultation.' 


230  PRINT 
240  PRINT 

230  PRINT" I<  *ou  aish  to  one  ae  leedbsc> ,  cr  get  inlor-satr.-  ascot* 
260  PPINT'this  prograi.  pisaae  contact  *e  at  S^IfFIES  -r.:.  NT.  ■  ■>: 
270  PRINT'in  the  AircaTt  Maintenance  area  at ‘ er  :T  S3." 


23”  ;°InT 

2C  iNPUt'cress  ENTER  ::  continue ‘:TJ 


sosub  3:.' 


;;o  print* 

MENU  3.0 

.E;  ‘ 

720  -:‘f 

::■}  ?R:-.'*seie 

ct  the  program 

•;sh  t  :  rjn 

;roi  the  list  bel i 

3M>  PRINT'and 

c'esa  tie  noise'  *. 

-at  ;s  ne*t 

to  your  selection. 

350  PRINT 'Then 

press  E'lTE5.' 

:30  MINT 

"0  PRINT* I. 

LESSON  ONE 

7. 

LESSON  FOUR* 

330  PRINT'2. 

TEST  ONE 

8. 

TEST  FOUR* 

3»0  PRINT  *  3. 

LESSON  TNG 

9. 

LESSON  FIVE* 

400  PRINT'4. 

TEST  INC 

10. 

TEST  FIVE* 

410  PRINT'S. 

LESSON  THREE 

11. 

LESSON  sir 

420  PRINT'6. 

TEST  THREE 

12. 

TEST  sir 

*25  PRINT 

430  INPUT’NHICH  NUMBER  DO  YOU  NANT*;T 

440  ON  T  SOTO  450,452,454,456,440,462,4*4,466,470,472,474,480,490 
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07/10/83 


450  RUR'LESSONl* 

452  RWTTEST1* 

454  RUN*LESSQN2* 

456  RUN’ TEST2* 

460  RUN*L£SS0H3* 

462  RUN'TESTS* 

464  RUN*L£5S0M4* 

466  RUR*T£ST4* 

470  RUN’LESSOW 
472  RIM*T£5T5* 

474  RIM*L£SS0N6* 

480  RIM  “TESTA* 

490  END 
500  REN  ** 

510  REN  ♦*  FOUONINS  SUBROUTINE  IS  USED  TO  CLEAR  SCREEN 
520  FOR  X  *  1  TO  24 
530  PRINT*  * 

540  NEXT  I 
550  RETURN 


00159:51 


Vi 


42 


*****  Listing  of  Prograt  'LESSGN1'  ***** 


07/ 


1000  REN  **  INIS  PROGRAM  STARTED  ON  2?  "ARCH  1993 
1010  REN  **  AUTHOR:  CAPTAIN  DANNY  J.  CREASAN 
1020  REN  *♦  TITLE:  LESSON  1A 
1030  REN  *♦ 

ICAO  REN  *♦ 

1 050  REN  ** 

1060  60SU8  9970 

1070  PRINT"LES3QN:  SASIC  1A  VERSION:  1  AUGUST  S3 

1080  PRINT 

10°0  PRINT-TIME  REQUIRED  T0  COMPLETE  LESSON:  About  Qne  Hour- 
1100  PRINT 
H10  PRINT 

1120  PRINT ‘AUTHOR:  Capt  Danny  J.  Creagan* 

1130  PRINT-  Air  Force  Institute  oF  Technology- 

11  AO  PRINT 

1150  PRINT-OBJECTIVE:  To  introduce  the  student  to  Microsoft" 

I 1 60  PRINT'  BASIC  and  the  fundamentals  of  a  stall  computer" 

1170  PRINT 

1130  PRINT-MATERIALS  REQ’D:  BASIC  reference  tanuai1 
1190  PRINT 
1100  PRINT 
1210  PRINT 

1220  INPUT -press  the  ENTER  key  to  continue*;!* 

1230  SDSL'S  5 9 70 
12A0  SCSI'S  10040 

1250  !'9INT*A  I’t  taking  this  part  m  its  entirety.* 

1260  PRINT’B  I  wish  to  review  selected  areas." 

1270  PRINT’C  I  want  to  go  to  the  second  part.' 

1280  PRINT’D  I  want  to  return  to  the  Menu." 

1290  PRINT 

1300  lNPUT'Press  either  capital  A,  8,  C,  or  0  and  then  press  ENTER** : T* 

1310  IF  T*  =  -D-  SOTO  10160 

1320  lc  T$  =  -C-  GOTO  10170 

1330  IF  T*  =  -B-  GOTO  1450 

1340  IF  T*  ■; ;*A*  GOTO  1250 

1350  60SUB  1560 

1360  SGSU8  1920 

1370  G0SU6  2790 

1330  GOSUB  3750 

1390  G0SU8  4800 

14>  ii)  SOSUB  5950 

1410  6GSUB  7820 

1420  GOSUB  8500 

1430  PR1NT-S0ING  TO  SECOND  PART  -  PLEASE  STANDBY- 
1440  6Q*Q  10170 
1450  GOSUB  7970 
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I 


1460  SOSUB  10040 
1470  PRINT 

1430  pRINT*R  1  ease  type  in  the  n under  beside  the  area  ,ou  wish* 

1490  PRlNT’to  review  (1  through  8)  and  then  press  ENTER  -  press  0  and* 

1500  PRINT'press  ENTER  to  return  to  the  iler.u.* 

1510  PRINT 

1520  INPUT "What  is  your  choice* ; N 
1330  IF  N  -  0  GOTO  10140 

1540  ON  N  SOSUB  1560  ,1920  .2790  .3750  .4300  .3950  .’320  .3500 
1530  SOTO  1430 
1540  S05UB  9P’0 

1370  PRINT*  Introduction" 

1330  PRINT 

1390  PRINT’Throughout  all  your  lessons,  you  should  have  your  BASIC  eanual* 
1600  PRINT'handy.  If  <ou  find  vourself  stusped  bu  a  question,  you  snould* 
1610  ®RINT ‘LOOK  UP  THE  ANSWER  IN  THE  BOOK.  If  »ou  can’t  find  it  after" 
1620  PR!NT*an  honest  atteapt,  then  *ake  a  guess  and  then  go  on.  You  will* 
1630  PRINT*have  an  opportunity  to  review  each  section  again.* 

1640  PRINT 

1550  °RINT*Beoinning  with  this  lesson,  you  will  have  hoaework  assigned” 
1660  PRINT'at  the  end  of  each  test,  if  vou  do  the  hoaework,  you  will* 

!n70  PRINT*! earn  sore,  and,  with  the  techniques  vou  learn,  v ou  will  find" 
1630  PFINT’that  you  can  tackle  saail  proqraMing  jobs  as  soon  as  /ou* 
lo90  PRlNT'coeplete  the  course.  * 

1700  »RINT 

PIO  INPUT’press  ENTER*;  Tl: SOSUB  9970 
1720  PRINT 

1730  PRINT"  Introduction* 

1740  PRINT 

1750  PR INT* Throughout  the  next  six  lessons  >ou  will  be  learning" 

'.’SO  PRINT'about  coaputers  and  what  they  do.  Although  the  course  is" 

1770  PRINT'titled  ’Coaputer  Assisted  Instruction  in  BASIC’,  .ou  wilt* 

1730  PRINT "al so  need  to  learn  the  terimolog*  of  cotputers,  not  just" 
r°C  PP INT'the  BASIC  prograeamg  language.  This  first  lesson  will" 

1300  sPINT*start  with  soae  fundaaental  ideas,  and  expand  the*  as" 

18K  c'RINT"»e  go  along." 

1820  PRINT 

1330  FRINT'Ne  use  co*puters  to  process  DATA  and  give  us  answers  to  cur’ 
1340  coINT"protileiis.  To  process  this  DATA,  we  aust  coiaunicate  with  the  ’ 
135?  PRINT "cosputer  using  two  basic  coscuter  coaponents.  Those  cos-" 

I860  cRINT"are  called:  HARDWARE  AND  SOFTWARE. * 

W':  00 [NT 

1830  INPUT'press  ENTEC"’.TS 

1 sosuB  102 10 

t°00  IF  rl  -  ’?*  SOTO  1540 

1 0 «, ;  6ffr.:et» 


*****  Listing  cr  Program  ’LESSGNl’  ***** 
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1920  6GSUB  9970 

1930  FRINT"  HARDWARE 1 

1940  PRINT 

1950  PRINT’Hardware  is  the  term  used  to  describe  the  electrical  and* 

I960  PRlNT’mechanica!  aspects  of  a  computer.  Hardware  includes  the' 

1970  PRINT’parts  .on  can  physically  touch  on.  or  in.  your  computer.’ 

<980  PRINT 

1990  PRINT'One  iajor  piece  of  hardwire  is  the  central  processing  unit' 
2000  PRIMT* tCPtll .  The  CPU  is  the  computer's  central  electronic  brain." 
2010  PRINT 

2020  PRINT’!!  performs  all  cr  the  data  operations  and  contains  a* 

2020  PRINT’storage  area  called  NENGRy  which  is  used  for  short  t era" 

2240  P/Uril'djts  'etention  during  operations. * 

2050  PRINT 

2060  INPUT’press  ENTER  to  continue". Tt 
2070  SGSU8  99 to 

2030  PRINT’  HARDWARE  'cont.' 

2090  PRINT 

2100  FRINT'PERIPHEPAL  DEVICES  are  additional  units  of  equipment’ 

2110  RRINT’that  support  the  computer.  PERIPHERAL  DEVICES  are  used  for" 
2120  PRINT’Iong-ter*  or  permanent  storage,  and  thev  also  let* 

2130  S6!NT‘you  communicate  with  the  computer.’ 

214'."  PRINT 

2150  PRINT’The  computer  ’ talks’  to  you  by  using  peripheral’ 

2160  RRINT’hardware  units  called  0UTFTJT  devices.  These  can  be* 

2170  PRINT ’TERMINALS,  or  LINE  PRINTERS,  or  TAPES,  or  DISKS.’ 

2130  PRINT 

2!59  FRINT’vpj  ’talk’  to  the  computer  through  units  called  INPUT  device;. 
2200  PRINT 

2210  ItlPUT’p’-ess  ENTER  to  continue'iT* 

2220  S0SU3  °970 

2230  PRINT*  HAR0NARE  leant/ 

2240  PRINT 

2250  PRINT ’INPUT  DEVICES  may  also  be  terminals,  or  tape,  or  discs," 

I2S0  PRINT ’or,  in  seme  special  cases,  printers  that  have  keyboards” 

2 270  PRl'NT’that  are  used  as  terminals.’ 

2280  PRINT 

2290  PRINT ’INPUT  and/or  OUTPUT  DEVICES  provide  a  physical  commumcat;  on’ 
2300  cR!NT"link  between  «ou  and  the  computer.’ 

2310  t0!NT 

2320  RR'NT’Nhenever  ,ou  communicate,  there  must  be  something  that" 

233)  T’RINT’trar.sforms  .our  physical  requests  'key  strokes!  into  ’ 

2340  PRINT’elect-ical  DATA  that  the  CPU  understands.  Host  of  that’ 

2350  PRINT’ job  is  done  b.  SOFTWARE* 

2360  CRINT 

2T7-)  INPUT’press  ENTER  t:  contt nue'iTl 
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3330  SOSUB  7770 

2370  PRINT’Here  is  a  little  quit  -  answer  in  capital  letters' 

2400  PRINT" and  do  not  lnduae  evtra  spaces  or  words” 

2410  PRINT 

2420  PRlMT'What  component  (HARDSaRE  or  SOFTWARE)  is  mainly' 

2430  PRlNT’used  to  transform  your  inputs  into  a  for*  the  CPU  can" 

2440  INPUT'understand';Tt 
2450  PRINT 

2460  IF  Tt  O  'SOFTWARE'  THEN  PRINT  'WRONS  -  the  correct  answer  is  SOFTWARE' 
2470  IF  Tt  ^'SOFTWARE'  THEN  PRINT'CORRECT* 

2430  PRINT 

2490  INPUT'press  ENTER  to  continue':!* 

2500  SOSUB  9970 

2510  INPUT "What  do  the  letters  CPU  stand  for'-.Ti 
2520  PRINT 

2530  IF  TS  =  'CENTRAL  PROCESSING  UNIT'  GOTO  2560 

2540  PRINT-WRONG  -  the  correct  answer  is  CENTRAL  PROCESSING  UNIT' 

2550  SOTO  2570 

2560  PRINT'CORRECT  -  now  we  are  learning  something!" 

2570  PRINT 

2580  INPUT'press  ENTER  to  continue’;Tt 
2590  SOSUB  9970 

2600  PRINT'Uhich  of  the  following  can  be  considered  an  OUTPUT  deuce"' 

2610  PRINT 

2620  PRINT 'A  Terminals’ 

2630  PRINT'S  Tapes' 

2640  FRINT'C  Disks' 

2650  PRINT'D  ALL  of  the  above' 

2660  PRINT 

2670  INPUT'which  letter  do  vcu  select*; Tt 
2680  IF  LENdt!  ■!  GOTO  2670 
2690  PRINT 

2700  IF  Tt  =  '0'  GOTO  1730 

2710  PRINT'WRONG  -  D  .ALL  of  the  atpvei  is  the  correct  answer' 

2720  GOTO  2740 
2730  PRINT'CORRECT' 

2740  PRINT 

2750  INPUT'press  ENTER  to  contmue'JTt 

27 60  G0SU8  10210 

2’70  IF  Tt  =  'S'  GOTO  1910 

2730  RETURN 

27’0  SOSUB  9970 

23 3 C  PRINT'  SOFTWARE' 

2310  PRINT 

2320  PRINT'Software  is  a  collection  of  written  rules  that  control’ 

233)  PRINT’the  comouter.  Software  can  be  divided  into  two’ 
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2340  PRIUT’tvpes:  USER  PROGRAMS  and  OPERATING  SYSTEMS.* 

23=0  PRINT 

2360  PRINT'A  USER  PROGRAM  is  the  instructions  tr at  vou  ante  to* 

23’0  PRINT'tht  eachine  that  tell  it  ahere  /cur  data  is,  ahat  to  do  with* 
2330  PRINT" i t .  and  ahen  to  do  it.* 

2330  PRINT 

2 ROC  PRINT" The  OPERATING  SYSTEM  is  the  sot. .-are  that  is  the  conscious-* 
2Q10  PR!NT"-iess  of  the  computer.* 

2320  PRINT 

2920  INPUT’oress  ENTER  to  continue*; TJ 
2^40  S0SU9  9«7C 

2950  PRINT*  SOFTWARE  (cont)* 

2960  PRINT 

2920  PRINT'The  OPERATING  SYSTEM  super. ises  the  .anous  capabilities  * 

2930  PR  I  NT  *  o+  the  coeputer  and  cannot  5e  altered  ay  the  user.’ 

2990  PRINT*It  OVERSEES  the  operation,  and  senses  ahen  a  ievstroke* 

3002  PRINT" 1 5  aade,  a  butter,  is  pushed,  or  a  request  aade.’ 

3210  PRINT 

3020  PRINT'One  oart  of  the  operating  systee  is  called  the  LANGUAGE* 

3030  PRINT'PPOCESSGR.  The  LANGUAGE  PROCESSOR  translates  the  instructions* 
3040  PRINT'of  a  user-aritten  prograe  into  electronic  instruc-* 

3050  PRINT'tions  that  the  computer  can  understand.” 

3060  PRINT 

3C7C  PRINT'The  rules,  cr  graaear,  that  you  use  to  ante  vour  software" 
3080  PRINT’are  described  by  the  kind  of  computer  language  you  use.* 

3090  PRINT 

310C  INPUT’press  ENTER  to  continue*;TI 
3110  SOSUB  9970 

3120  PRINT*  SOFTWARE  cont:* 

3130  °RINT 

314'.'  PRINT’Because  user-antten  pregraes  and  operating  systess  are’ 

3150  PRINT'hcth  designed  by  huaans,  it  is  possible  to  develop  a  tween* 
3:60  PRINT'oriented  language  that  both  can  use.  That  is,  a  language  " 
3170  PRINT’that  lets  you  ante  prograes  using  easilv  eascered  rules  and" 
3190  PRlNT'conventions  that  are  also  understood  by  the  operating* 

3190  PRlNT’s/stea.  Once  ae  get  the  operating  systee  to  understand* 

3200  PRINT’the  instruction,  it  can  eake  the  cosputer  do  its  jot.* 

3210  -PINT 
3221  PRINT 
3230  PRINT 
3240  PRINT 
3250  PRINT 

3260  INPUTVess  ENTER  to  continue*; T$ 

3270  GOSUB  0 

3280  PRINT* It *s  tiee  for  another  quid1’ 

32’0  '-'PINT 
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07/io/a:  -  0!:o::4t 


3300  PRINT’Reeeaber,  use  only  capital  letters  and  don't  add  unnecessary’ 
1310  PRINT’spaces  or  words.’ 

3320  PRINT 

3330  INPUT'press  ENTER  to  continue’lTI 
3340  S0SU8  9970 

3350  PRINT’ !s  a  peripheral,  such  as  a  line  printer,  hardware  or  software'” 
3340  PRINT 

3370  PRINT"  Hardware’ 

3380  PRINT’S  Software* 

3390  PRINT 

3400  PR IMT'Choose  A  or  8  -  press  the  letter  and  then  press  ENTER’ 

3410  PRINT 

3420  INPUT’Nhich  letter"; U 
3430  IF  LEM  ITS;  >  1  SOTO  3400 
3440  PRINT 

3450  IF  TS  =  ’A*  GOTO  3480 

3*60  PRINT  "WRONG  -  the  correct  answer  is  A  ‘.Hardware).’ 

3470  GOTO  3490 
3430  PRINT "CORRECT’ 

3490  PRINT 

3500  INPUT’press  ENTER  to  continue’;!* 

3510  5DSUB  9970 

3520  PRINT’A.o  operating  s/stea  translates  user-written  code  into  a" 

3530  PP !N7’for«  that  the  operator  can  unde-stond.  (TRUE  or’ 

3340  PRINT’FALSE'M’ 

3530  PRINT 

3560  PRINT'S  True- 

3570  PRINT'B  False’ 

33SO  PRINT 

3590  PRINT’Choose  the  letter  corresponding  to  the  correct  answer’ 

3600  PRINT 

3610  INPUT’which  letter  (A  or  B)';T* 

3620  PRINT 

3430  IF  Tl  =  ’B“  GOTO  3690 

3640  ^RINT'INCCPPECT  -  the  right  answer  is  9  (False)’ 

345';  PRINT 

36o‘.'  PRINT*!!  is  the  language  processor’s  job  to  convert  user  code’ 

347;  oRINT’into  a  rora  the  cooputer  can  understand" 

3o30  GOTO  r:  ■ 

3690  FRIVT'Vou  are  FIGHT’ 

-5INT 

3':0  INPUT’oress  ENTER  to  continue’"* 

3720  5GSUr  1 0210 

~7j'  IF  »  =  *8’  30T0  279'.; 

"40  F.E’URN 
3750  30SL5  90". 


4B 


m»t  listing  of  Prograa  ’LESSON!’  ***** 
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3o0  PRINT"  General  Inforiation* 

3770  PRINT 

3730  PRINT'There  have  been  aany  prcqraaaing  languages  developed  over  the’ 
3790  PRINT", ears.  Ilany  were  designed  to  solve  specific  probieas  and  they" 
3300  PRINT'reouired  a  good  deal  of  previous  knowledge  about  coaouters.’ 
3810  PRINT 
3830  PRINT 

3833  PRINT'BASIC,  wmch  stands  for  Beginner's  All-purpose  Svabolic  * 

3340  PRINT'Instruction  Code,  is  a  language  that  requires  only  a" 

3350  PRINT ’federate  understanding  of  ho*  a  cotputer  *orks." 

3860  PRINT 

3370  PRINT’BASIC  *as  developed  at  Cartaouth  College  for  use  by  students' 
3S30  PRlNT“who  were  unfaailiar  with  coaputers  and  needed  a  language* 

339)  PRINTVelated  to  everyday  speech.* 

3900  PRINT 

3710  INPUT'press  ENTER  to  continue’tTS 
3920  5CSUB  9970 

3933  PRINT*  General  Inforaation  icont)* 

3940  PRINT 

3950  PRINT “BASIC  is  easier  to  faster  than  tost  other  languages,  be-’ 

3960  PRINT’cause  its  instructions  are  very  sisilar  to  English  graaaar.* 
3770  PRINT 

3980  PRINT’Hcweyer,  SASIC  is  not  English,  A  coaputer  aust  be  instruc-' 
3990  PR’NT’ed  in  precise  teras,  «ith  no  aabiguity.  English  has  aany* 
4000  PRINT’synonyaous  and  imprecise  teras.’ 

4010  PRINT 
4020  PRINT 
4033  PRINT 
4C-»C  PPIMT 

4050  ISPUT’sreiS  ENTER  for  eore'lTS 
4060  50SUB  9^70 

4070  PRINT’  General  Inforaation  Iconti* 

4030  PRINT 

4090  PRINT” To  further  explain  the  difference  between  BASIC  and* 

4100  PRINT’English.  if  vou  describe  ho*  to  average  nuabers  m  English* 
4110  PRINT ’you  fight  do  it  this  way.  (assuming  the  ousters  below.  ‘ 

4120  PRINT 

*130  PRINT*  Add  1°,  30.  50  100.  and  66.  Divide  bv  5.' 

4140  SRINT*  (frits  the  buctient  as  the  answer.” 

415)  PRINT 

4Ij0  PRINT'A  ccsputsr  prcgrsaaed  in  BASIC  couldn't  understand  these” 

4 ( Tv  59fN7";r.s:ruct:sh5{  however,  the  instructions  that  BASIC  would" 

4130  :RINT\se  are  very  siailar  to  these.  BASIC  :ust  distills  dc«r. 1 
4170  PRINT’tn?  cotaands  and  eliamates  all  the  aabiguity.* 

4200  PRINT  Tn is  a.erage  can  be  seated  :n  one  instruction  called  PRINT. ■ 
a; ; .  -7 INT 
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I 


*220  INPUT’press  ENTER  tar  an  exaapie  of  the  PRINT  instruction";  Tt 
4230  SCSUB  R°70 

424<>  PRINT*  Genera!  Inforeation  leant!* 

425')  PRINT 

42s1)  PfiINT*The  °R'NT  stateaent  worts  like  tms,  to  find  the  average ' 

42TO  PR!NT“af  five  r.u*becs  and  *r:te  the  result  or.  vour  tersinal." 

J23G  PRINT" veu  can  use  the  following  BASIC  stateaer.t:* 

:;5.j  etjj^T 

422 C  PRINT"  PRINT  U?*80e5a»iOO»6c)/5* 

42: :  PRINT 

KZ'l  PRINT'h  this  esa.iple,  the  BASIC  verb  PRINT  tells  the  operating" 

4331  PRlNT"svstea  tc  write  the  instruction  following  it  to  the  terair.al.’ 
4240  PRINT’The  data,  or  recipients  of  f-e  verb  PRINT,  are  the  nuagers* 
4350  PR!NT"ar.d  svatols  to  the  right  of  the  PRINT  word.  The  syafiols* 

426-2*  PRINT’are  used  the  sate  aav  that  you  use  the*  on  a  calculator." 

4270  PRINT 
4330  PR  IN' 

43eC  INP'3T"press  ENTER  to  continue  with  General  Inf oraatian"; Tl 
4420  55SU8  997s> 

41JC  PPINT'BASIC  is  used  bv  nearly  every  aicra  and  aainfraae  computer .  “ 
44"?  MINT 

4430  PRINT'There  are  aany  ‘dialects'  of  BASIC  and  thev  are  not  ail* 

4440  °R!NT,c2apati:le  with  each  ether,  for  instance,  a  BASIC  srograa* 
443C  -cINT“wr ittan  m  “on ev well  BA'IC  or  Applesoft  BASIC  will  rot" 

44c j  iRINT“run  cn  -/our  caacuter  unless  it  is  sodified." 

44’-;  "PINT 

4430  PRINT •’he  naae  for  the  BASIC  on  .our  poaputer  is  hicrosc»t  BASIC.  1 
44 ’o  PRINT'Nicrosof t  BASIC  is  supported  iv  lore  sicrccotputers  than" 

4590  t,RINT*any  other  dialect.  It  is  e<tre«el.  ocwe-f-dl.  and  eateries' 

4513  PRIST ’the  :o*cuf.r,g  capability  of  eost  other  languages.  It* 

4520  ?6!NT*:s  slower  than  =o*e,  Put  tne  slowness  is  relati.e  .tost' 

4530  PRINT'caicuIatiohs  oni,-  take  ailhseconds).* 

4540  PRINT 


35'  INP'jT"p'ess  ENTER*.' Tt 

c  ■  r*>.~r  i  'tj  on  •»<*, 

'  -  2  -  '  2  i.  Z  (J  2  - 

',7''  frit 


53,- 


5;  : 


PRINT'Nhy  is  BASIC  a  good  general  programing  language  t:  learn"" 
-R!NT 

PRINT'S  It  can  be  used  iv  oost  students  and  3r3orasaers" 

PRINT'S  «ou  don't  need  to  know  a  lot  about  ccesaters  to  use  it* 
?RINT”C  It  is  available  on  sost  cotputers* 
e0INT"3  ALL  of  the  above" 

-FIT 

F3IN’ 'F-ess  the  letter  cor-esoonoing  to  the  correct  answe*  ‘ 
:cIT';e  sure  to  enter  only  capital  letters* 


:-c;t 


f 


*»  : s 1 1 r; a  of  P'rogra*  'lESSGSl'  »»m 


oms.'s:  -  ;::e::4i 


40  SR!KT*  STATEMENTS  a.'d  PRCSf.A*!'  .cent" 

cf:!’JT 

3v  ?aiNT"E»er»  stateaent  aust  h»»e  a  line  nuater  and  ‘.ms  r^sbe^;  range’ 

.0  ~ 4 * 0  ,-r0:5  v  to  cOw  I:  in  tost  aicroccftpaters  that  support* 

5130  PRINT**: crcscft  BASIC.  Sicrosc**.  is  tr.e  osapanv  that  sans* 

90  PRIST*:*!?  coov.-igst  to  the  jarticular  dialect  of  BASIC  that* 

Ot  f RIKt',-j.*.5  on  this  sachme*.  It  is  advisable  to  writs  prcg'ae* 

'll  BCINT*i;res  :n  increments  o*  10  to  alio*  .ou  to  insert  additional'' 

C:-  ?P!Sr*iines  without  having  to  renueber  ever •••  statement  line.’ 

To  PR  IT*  the  stateaents  are  eiecuteo  in  ascendir.;  nuaeric*;  order.' 

40  PRINT '.net  in  the  order  they  »e-€  entered.* 

50  PRINT 

60  ?R INT" loo*  up  toe  RENO*1,  or  NAME  coward  ir,  ,our  aar.ua  1  ‘or  *ors;" 

*0  PRIST*:nforaatiOft'* 

31  F-INT 

*:  INPUT'sress  ENTER  to  continue' 5 T* 

scsjP  99*0 

PRINT”  STATEMENTS  and  PRCC-RAKS  'cant:  - 

2;:  PRINT 

TO  :RINT**>e  last  state*e"t  of  the  prcsra*  should  be  the  END  statement. ' 

140  ?:!N”This  indicates  that  the  prograa  is  coipiete.  IT  IS  NOT  * 

555-1  ?R!NT"NE:E3SAR-.  but  it  is  a  good  practice  to  al<*svs  out  it  in." 

°rint- 

FR:nt"’p  get  the  p-ec'SJ  to  e.ecute  v-Cu  -se  the  ?.U«  ccssand." 

5330  =r:v 

39 j  tsIST*No*  *:r  a  fe*  questions  to  see  how  -ou  are  doing.’ 

j400  «*:r 

5411  INPoT’dress  ENTER  for  tr.e  :.estions':TS 
42. •  32SJS  s?Ty. 

-  sc;*(r'>p  q^aa.ter  croc'aa  is  a  series  c . . 

s':  --:r 

i:  :5IN’'h  verbs* 

4s-  =R:%r*5  Kords* 

:  'RINT’C  Stateaents' 

480  PRINT'D  Svhon.os* 

5*90  PRINT 
500  ‘PINT 

Si1.-  IftP'JT ” .;s  ir  :re  letter  specs-.:®  the  co"ect  arswer  and  cress  ENrET-i" : Ti 
52A 

•3.)  yt  s  *2"  cQ’3  *j8(- 

541  0RI*»T*»eQh6  -  the  ccrrect  answer  is  Z  .STA’ErEKTS.  “ 


is:  mHTzom:" 

"■'!  PRINT 

130  INF.’ ’cress  ETE:  t:  csr-tinj**!** 


♦**»♦  Listing  of  Prcgraa  'LESSON!'  ***** 


5  c  )0  PRINT’Which  of  the  following  is  incorrect''1' 

5sl0  PRINT 

5u20  PRINTS  A  BASIC  word  is  a  woro  that  a  BASIC  orccessor  understands" 
5630  PRINT’S  A  statement  :an  hate  no  acre  than  t«o  line  misters* 

5440  ?RINT“C  Data  are  the  recipients  of  the  action  of  BASIC  .eros' 

5650  PRINT’S  Line  Nusbers  are  written  sequentially. * 

5660  PRINT 

5c?')  rRMT’Press  the  letter  trsat  is  beside  the  correct  answer’ 

5430  “RINT'ana  then  pres-  ENTER' 

5c’0  -PINT 

rio  INPUT ‘What  is  your  choice": '5 
*? jo  PRINT 

57:0  IP  Tl  =  *B*  SGTO  5750 

5730  cRINT“NRONS  -  E  unit  one  line  nuase*  is  a. lowed  :er  statement'1 
5740  3070  5760 

575?  PRINT’CORRECT  -  wav  to  go1’ 

5740  PRINT 

5770  INPuT'ores*  ENTER  tor  the  next  question':'! 

5790  303U8  R07? 

57Ru  PRIfIT’Is  35 'COO  a  -'alia  ststeient  nueoer  in  "ic-osoft  BASIC”” 

530?  C'RINT 
5310  PRINT’S  No1' 

5320  PRINT”?  res’ 

5330  PRINT 

524:  INPUT’press  the  letter  beside  the  correct  ansae-  and  then  tress  ENTE 
5350  ?RINT 

5340  IF  *t  =  30 T  3  5390 

5370  FRINT’JiRONS  -  353000  is  too  dip.  Reteacer.  y:a  can  onl.  :o  tc  4:529’ 
5330  SGTO  5900 
5390  PRINT-CORRECT’ 

5900  5RINT 

5910  iNP'JT’press  EN’-?“:r5 

5920  SCS'JB  13210 

593*'  If  T$  =  *BJ  SOTO  4300 

Joan  SST'JSN 

:;5u  SDSL1?  9970 

5*49  PRINT”  PRINT  STATEMENT* 

53'?  RflNT 

5°9v  PRINT ’The  BASIC  wore  PRINT  is  a  coaaanS  that  tells  the  cc*o-ter’ 

5*9?  PRIN7 'to  output  the  data  that  follows  to  the  coaster  temnal* 
tiOO  PRINT 

w:-j  :RINT’This  data  can  be  nuebers.  variables,  or  strings.” 
s';  20  PRINT”  strings  are  c  Datamations  a*  words  or  ouabers  that  are* 

4030  5RlN7*tc  he  printed  without  having  any  calculations  done  to  the#:” 
604';  pt'INT 
4:50  PflNT 


*****  U stinc  zf  '-rcqrai  ’ LESSG'U ’  ***** 


07/10/83  -  01:03:4' 


4060 

PRINT 

4070 

PRIM 

4C3.) 

INPLT'press  ENTER*: Tt 

3090 

GOa'JB  997'3 

4100 

RRlNT’You  car.  control  the  o 

utjut  caused  by  the  print  state*ert" 

4110 

PfilM'in  two  Mars,  it 

you 

j ust  »mt  afiat  you  ENTER  orir.ted* 

4120 

?R!NT“w;tr,out  any  ealeu 

iati 

ons  done  to  it,  then  you  enclose  the" 

4130 

°RINT"data  after  the  p°!nt 

coward  in  ouotation  aa-ks." 

4140 

PRINT 

j,  ♦  c  ,*. 

RRlNT'cor  Eianole:" 

aloC 

PRINT 

6170 

PRINT'!!'  PRINT  “CHR$'.3J 

1  *8ri 

cor  If'CHRt:34: 

i!80 

PRINT” 20  EM 

a  Zt) 

PR  INT'P'L'N" 

6200 

PRIM 

6210 

PRINT" In  BASIC,  if  vou 

type 

this  in  as  shcun.  you  get  this  result:* 

6220 

PRINT 

62  jO 

FRINT'Go  For  If* 

•  -*  4  f 

C.**v 

PRINT 

a  250 

INPUT'oress  ENTER*: TS 

6260 

S3SUB  9970 

62"') 

PRINT* 

PRINT  ;co /it;* 

3280  PRINT 

4290  PRlNTVnotfter  evaaple  tails  Ssd* 

4300  PRIM 

o3!0  PR’M'IO  PRIM  '’CHR$(34) 'This  is  easMCPR$<3* ; 

sR!m*:o  en:* 

4w0  PRIM’RUN* 
t .4'.  PftINT 

till  PRINT’WV.ch  Mould  -esuit  ir.:" 

43a0  RRINT 

&:?■:  PR!NT‘This  is  easv ' 

633C  “1ST 

b3'50  PRINT  "So  tics  that  nothing  :s  changed  tiv  the  coacuter,  the  Mores* 

6400  ?RINT*that  were  contended  to  be  cutout  were  printed  erectly  as  shotm,  1 
6410  PRINT 

4420  INPtiPcress  FM£R  for  the  second  erancie'iTS 
=430  SOS'.?  9970 

c 44<0  PRINT"  PRINT  :cont>' 

4450  PRINT 

444)  ;RINT"Tbe  second  «ay  the  print  statement  is  used  to  control  output* 
4470  PRINT*:  =  5y  NOT  enclosing  the  data  in  quotation,  aarks.  The  data  is* 
4480  RRINT'then  read  by  the  ooapute'  and  the  ccscuter  tries  to  evaluate' 
44°C  °R!NT"Mhat  the  data  wans  m  aathenatical  ter  as.  If  vou  have  entered* 
43?"  RRINT'data  that  cannot  ce  nathesatically  lamoulated,  then  vou" 

331,  PRINT’:=t  an  ERROR  message." 
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*♦»**  Listing  of  Prcgra*  ’LESSON!’  ***** 


07/10/33  -  01:03:41 


4520  :3R  t  -  1  TO  7 
o530  PP1NT 
a540  WEXT  11 

4350  INPUT “press  ENTER'; ft 
a 340  oOSUS  9970 
4370  PRINT 

a 330  PRINT'Here  is  an  eraeple  of  data  in  quotes,  and  data  not  m  quotes” 
4390  PRINT* and  what  the  output  would  loot,  like:" 

4400  PRINT 
4410  PRINT 
4420  PRINT 

4430  PRINT'tO  PRINT  *CHRI<:4J,M*CHR$!34> 

4440  PRINT ‘20  PRINT  1*1* 

4.-50  PRINT'S!.', N" 

4440  PRINT 

4470  PRINT'Results  in:* 

-.430  °RINT 
bs?0  PRINT*!*!* 

4700  'JRIN’*2* 

47! '  PRINT 

4720  INPUT*press  ENTER*; TJ 
4730  50SUB  99'.; 

4740  PRINT*  PRINT  -.cant)* 

4750  PRINT 

4740  P’RINT’iO  eS!NT  *CHPt : 3*> *  1  *  1  *CHR< (34 i 
a*7(»  PR  INI*  20  PRINT  1*1* 

4 730  PRINT 
4790  PRINT  *1*1* 

4300  PRINT  *2* 

4310  SRINT 

4321  PRINT *iote  that  the  statement  that  had  quotes  was  'eonnted  e-.activ* 
4630  PRlf.’T*as  it  was  tvped  m,  without  the  quotes,  while  the  second" 

4340  PRINT‘state*ent  was  computed  natheaaticallv  and  a  result  was  given.’ 
4830  PRINT’The  oar t  of  the  f:-st  stateient  within  quotes  is  called* 

4340  PRINT'a  STRING  -  reaesber'’! ' 

4;*)  PRINT 

a39C  INPUT'oress  ENTER’; T S 
439)  30SUS  9970 

aTO'1  PRINT*  PRINT  cont)' 

4910  PRINT 

4920  PRINT 'The  forsat  of  the  outcut  of  PRINT  can  be  controlled  using' 
a" 30  PRINT'coMas.  "or  E*a»oIe:* 
a 940  PRINT 

a 930  PRINT  '  10  PRINT  "CHRH34!  *fi"Cf*R*(34>  \6+2.  "CHRH34I  ’B’CHPi  :34:  ',7*1  * 
4«40  PR  IN* "20  END’ 

4970  PRINTIN’ 


5! 


*****  Listing  of  Prrgraa  ' LE3S0N1 ’  *****  07/10/33  -  01:03:4: 


6980  PRINT 

6990  “RlNT'Results  m:‘ 

’TOO  PRINT 

7010  ?RINT*A\6+2,*B'.7.-1 
7020  PRINT 
’030  PRINT 
7040  PRINT 

7050  INP'JT'press  ENTER'iTJ 
7060  30SUB  R570 
7070  PRINT  “A* , &+-2, 43‘,?+t 
703?  PRINT 

’090  RRINT'Notice  hoi.  the  corneas  have  caused  the  terns  of  the' 

7100  PRINT'stateaent  to  be  spaced  across  the  screen.  The  spaces' 

7110  PRINT'are  similar  to  TABS  on  a  typewriter,  however,  the  coaaa  reacts' 
’120  PRINT'dif ‘erently  on  different  termnals.  See  your  BASIC  sanus!' 

’130  PRINT'or  ask  your  system  operator  ho*  they  react  on  .our  machine.' 

714}  PRINT 

’150  PRINT* (coaaas  usually  cause  3  soaces  between  terasi* 

7160  PRINT 

’170  INPUT 'or ess  ENTER'ITJ 
’ISO  GOSUB  9970 

’I’O  PRINT*  PRINT  (cent)' 

’200  PRINT 

’210  PRINT'The  -PINT  statement  also  allows  you  to  output  blank  lines.’ 

’220  PRINT "Tou  print  blank  lines  by  typing  >r  the  line  number  and  then  * 
’230  PRINT'a  PRINT  statement  without  an  argument.  For  example:' 

7240  PRINT 

’25')  PRINT'10  PRINT  *CHRJi34! 'No*  is  the  tiae  to  skip’CHRJ (34) 

’260  PRINT-GO  ?C'!NT" 

’2’0  PRINT-30  PRINT  'CHR* (34) *a  line. ’CHR$(34i 
72SO  PRINT-RUN' 

7290  BR!NT 

7330  INPUT 'press  ENTER  for  results'! TJ 
7310  PRINT 

7320  PRINT'No*  is  the  time  to  sfcio’ 

7330  PP I  NT 
7340  PRINT'a  line* 

7350  SR!NT 

736C  INFUT'press  ENTER*: Ti 
’373  SCSUB  5970 
7330  FR!Nf*12*10* 

’390  PRINT 

’4)y  peiNT'Nhich  of  the  ‘oil owing  statements  would  cause  the  above  output” 
’41c  PRINT 

’420  PRINT’A  10  PRINT  “CHR* 34 1  "12*1 3"CHP$ •  34 1 
'43?  6R!NT 
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*****  Listing  or  Proqra*  ’LE3SGN1’  «♦« 


07/10/83  -  01:03:41 


'440  PRINT'S  20  PRIST  12*10“ 

’450  »RINT 

7460  ?RINT“C  15  PRINT  "CHR* -.34)  "TNELVE  *  7EN’CHRJ  :34'- 
7470  PRINT 

’430  PRINT'D  25  PRINT  12*10" 

74RO  PRINT 

7500  INPUfpress  the  letter  that  is  beside  the  correct  choice  and  ENTER" ; T* 
7510  PRINT 

7520  IF  TS  *  “A"  SOTO  7630 

7530  PRINT'NfiQNS  -  the  correct  answer  is  A“ 

7540  PRINT 

7550  PRINT’10  PRINT  'CHRS (34) ‘12*lS"CHfiS(34) 

7560  FRINT'RUN" 

7570  PRINT 

7580  PRINT  'Nhich  results  in:“ 

7590  PRINT 
7600  PRINT  ■12*10“ 

7610  PRINT 
762/  GOTO  7640 

’s30  PRINT'CQRRECT  -  that  was  a  fee*  concept,  congratulations1  “ 

7640  PRINT 

7650  INPUT'pres;  ENTER" : T $ 

7660  GGSL'2  7970 

’670  PcIMT"Nrite  the  stateeent  that  «cuid  cause  a  Slant  line  to  be  printed" 
7630  PPINT'Use  10  Tor  the  line  nueber  and  leave  one  blanf  space  between’’ 
"690  PRINT'tem.  ’ 

7700  PRINT 

77*. }  INPur,Nha*  is  your  answer *tT$ 

'720  psjfjT 

7730  IF  TS  =  *10  PRINT'  GOTO  7760 

7740  PRINT'NPGNS  -  the  correct  answer  is:  10  PRINT' 

7750  S0T2  7770 
7-67  PRINT  "CuRPECT" 

”7)  PPIN' 

7'2  ’  INPUT  "press  ENTER  to  continue'iTS 

7T90  GOSUB  10210 

7300  IF  $  =  '8*  60T0  5950 

78’*:'  RETURN 

’320  30SU5  9970 

’330  6BINT'  END  5  STOP" 

’940  PRINT 

7950  PRINT  'The  END  state»ent  is  the  last  statement  in  a  proqrae.' 

’860  PRINT •  1 1  ,-ot;*ies  the  coeouter  wht.i  the  proqrae  is  done.’ 

’S’O  PRINT  'Because  it  is  the  last  stateeent,  it  has  the  highest' 

’990  PRINT'line  n*.eter.  The  END  stateeent  is  not  necessary  m  Nicrosoft" 
7990  rc'.NT‘BSSI3.  but  ear.y  prograeeers  use  it  anywa*.  They  behe*e  a" 
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**♦♦♦  Listing  of  Progra*  ‘LESSONl’  ***** 


07/10/83  -  01:03:41 


7900  PRINT'progra*  is  tore  understandable  and  easier  to  ’track’  by* 

’910  PRINT "another  prograa»er  if  there  is  only  ONE  entry  and  ONE  exit  in' 
7920  PRINT'a  progra*. * 

7930  PRINT 
’940  PRINT 

7950  INP'JT'press  ENTER  for  the  rest  of  END  1>  STOP'lT* 

’960  SQ3UB  9970 

7970  PRINT'The  STOP  stateaent  interrupts  execution  of  the  progra*.' 

’’30  PRINT* It  is  priaarilv  used  as  a  debugging  aid.  If  you  want' 

’990  PRINT'to  find  the  status  of  a  '.ariable  at  a  certain  point  m  a* 

8000  PRINT'prcgra*,  you  insert  a  STOP  statement.  For  esaapie:' 

3010  PRINT 

3020  PRINT' 10  t  =  2f3' 

3030  PRINT'20  Y  =  j/5* 

8040  PRINT '30  STOP" 

SOSO  PR  I  NT '40  X  *  Y+2’ 

3060  PRINT 

3070  PR l NT 'When  this  proqra*  is  RUN  it  will  STOP  execution  at  line  30“ 
3080  PRlNT'Theo  you  eay  ask  the  cosputer  to  tell  you  the  status  of  any’ 
3070  PRlNT'of  the  variables  X  or  Y.  You  can  do  this  using  the  INHEDIATE* 
8100  °RlNT'»cd?  (explained  next  section!.  Sisplv  type  m  PRINT  X. Y.' 
3i:0  PRINT 

3120  INPUT'press  ENTER': T1 
3130  SOSUB  «9 T0 

3140  PRINT" I f  you  want  to  start  the  progra*  back  uo  fro*  where  you" 

3150  PRINT'STOPed  it.  then  type  in  CONT  <CCNTinue:  and  press  ENTER' 
s! 40  PRINT'For  exaeple:' 

3 1’0  PRINT 

3130  r-9INT'!0  X  =  12+5* 

3)90  PRINT'20  Y  =  3*2" 

3200  ?RINT'30  STOP 
3210  PR! NT ‘40  PRINT  l*1‘ 

9220  PRINT'RUN" 

3230  PRINT 

■3240  PRINT  "Results  in:' 

3250  PRINT 

3260  PR  INK  BREAK  IN  30" 

3270  PRINT 
8230  PRINT 

3290  INPUT'hit  ENTER  for  the  rest'lTj 

3300  G0SU8  9970 

331C  PRINT'BREAK  m  30' 

3320  PRINT 
333)  PRINT 

3340  PPINT'Now,  by  tvsing  in  CONT,  the  progra*  will  resu*e  execution' 
3350  PRINT'For  example." 
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*****  Listing  of  Prograf  ’IESS0N1'  ***** 


07/10/93  -  01:03:41 


3360  "PINT 
3370  PRINT’CGNT" 

3330  PR!NT*22" 

3390  PRINT 
3400  PRINT 

3*10  PRINT'.Nat ice  how  the  last  line  (which  was  PRINT  UY)  was  executed?" 

9420  PRINT' It  was  just  as  if  the  STOP  statement  had  never  been  there" 

9430  PRINT'As  you  progress  in  BASIC,  you  will  find  »any  uses  for  this" 

344C  PRINT"state*ent." 

9430  PRINT 

9460  I NPUT "press  ENTER  to  continue"! Tt 

34”0  SOSUB  10210 

3430  IF  Tl  =  "8"  GOTO  7320 

3490  RETURN 

830)  SOSUB  9970 

3310  PRINT"  IMMEDIATE  NODE" 

9320  PRINT 

8330  PPINT’hicrcsoft  SASIC  has  a  aode  called  IMMEDIATE.  .  .  .* 

3540  PRINT'Nhenever  vou  have  i.iple»er.ted  BASIC  in  your  syste*.  usually  by" 
853J  PRINPtyping  in  the  word  SASIC,  (consult  your  SASIC  aanual  or  your* 

3360  Ps'.NT"svste«  operator  for  specific  directions  on  your  particular* 

357C  5RINT*»ach;ne)  you  will  be  in  the  IMMEDIATE  *cde.  In  this" 

3380  PRSNT'iode,  *ou  say  execute  *any  SASIC  state»ents  without  having  to" 
339?  PRINT" type  m  line  nuibers  or  the  cowand  RUN.  For  exaaple:* 

94C0  PRINT 

961')  PRINT’PRINT  "CHRI (341 "JUST  WHEN  1  THOUGH*  I  HAD  THE  HANG  OF  IT'CHR*'34> 
3#20  PRINT 

8630  PRINT’This  line  will  print  the  statesent  within  the  quotes  as  soon* 
364"  PRINT'as  the  ENTER  key  is  pressed." 

3650  PRINT 

9660  lNPUT"press  ENTER  to  continue'lTS 
3670  SOSUB  9970 

8630  PRINT"  IMMEDIATE  (coot!* 

8690  PRINT 

B'OO  FPINT'Another  eraepie  would  be:" 

3710  PRINT 

9720  FRINT’FRINT  93*10*40 
3730  PRINT 

3740  PRINT’Jihich  would  result  in:" 

3730  PRINT 
S760  PR  I  NT" 1 43" 

S1’?  PRINT 

8’30  PRINT" A=  vou  car,  see.  the  coaputer  will  do  the  calculations  just" 

3790  PRINT'as  if  it  were  coaaanded  to  do  it  in  the  noraal  wav." 

2900  PRINT 
881 0  "PINT 
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PRINT 

INPUT’press  ENTER* ; T< 

SOSUS  PPl’O 

PRINT’  IMMEDIATE  (cent)* 

PRINT 

PRINT’The  biggest  disadvantage  of  the  IMMEDIATE  node  is  that  the  data’ 
PRINT  "is  not  stored  in  teaory,  and  cannot  be  repeated  again." 

PRINT  “It  is  lost  after  the  initial  display,  whereas  the  prograas  we" 
PRINT  ‘looked  at  before  can  be  run  over  and  over  again  by  lerely  " 

PRINT  "typing  m  the  word  RUN.  Also,  the  laaediate  aode  is  Suited  to’ 
PRINT  “one  line  of  statements  at  a  tiae." 

PRINT 

PRINT 

INPUT'press  ENTER"; TJ 
GOSUB  9970 

PRINT"  NEW  Statement" 

PRINT 

PRINT’If  you  want  to  clean  out  the  teaporary  setory  in  BASIC,  all" 

PRINT "you  have  to  do  is  type  in  the  word  HEM.  BUT  BE  CAREFUL  KITH" 
PRINT*THI3  CGNNAND.  It  will  erase  any  prograa  you  have  resident.” 

1  PRINT 
PRINT 

PRINT'Let's  say  you’ve  been  practicing  the  ccaaands  vets  have  learned" 

1  PRINT‘50  far,  and  you  have  out  m  a  lot  of  line  ruibers  and  RUN  the».“ 
PRINT’But  now  vou  want  to  start  over.  You  can  erase  the  aess  with" 

1  PR  I  NT  "the  couand  NEN." 

■  PRINT 

'  INPUT'press  ENTER"! T* 

SOSLiP  9970 

PRINT"  LIST* 

i  PRINT 

1  PRINT'Suppose  you  don’t  know  wnat’s  there  and  you  want  to  find  out”" 
i  PRINT" Just  type  in  the  coarand  LIST.  LIST  will  show  you  everything" 

1  PRINT'That’s  in  teaporary  leaory." 

I  PRINT 

INPUT'press  ENTER’ I T$ 

'  SCSUS  9970 

’  PRINT"  DELETE" 

i  "PINT 

1  PRINT'Pmall y,  what  if  you  don’t  want  to  tvpe  in  a  new  prograa," 
i  PRINT'you  just  wart  to  delete  a  line7  You  can  do  that  by  typing  in* 

1  :'P1NT"DELETE  10,  or  DELETE  20  or  DELETE  Mine  nuaberi." 

I  PRINT 

1  PR’NT’If  ,ou  want  to  delete  a  range  of  line  nutbers,  vou  type  :n" 

>  PRINT'DELSTE  flow  range-high  range!.  Sav  you  want  to  delete  lines" 

1  PRINT"  15  to  75.  Vou  would  type  in  DELETE  15-35,  and  the  lines" 
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a280  PRINT'wouid  no  longer  be  in  memory" 

9290  PRINT 

9300  INPUT’press  ENTER" J T * 

9310  5QSU8  9970 

9320  FRINT’Nhich  of  the  following  statements  would  be  an  example  of* 

9330  PRINT* [MEDIATE  mode  in  Microsoft  SASIC* 

9340  PRINT 

9350  PRINT” A  10  PRINT  *CHR*i34)*AT  LAST’CHR* <34) 

9360  PRINT*  RUN* 

9370  PRINT 

9380  PRINT'S  PRINT  25+2-3* 

9390  PRINT 

4400  PRINT'C  32+2* 

9410  PRINT 

9420  PRINT'D  STOP* 

9430  PRINT 

9440  INPUT'press  the  letter  beside  the  correct  answer  and  press  ENTER” : T* 
9450  PRINT 

9460  IF  Tt  =  *8“  SOTO  9490 

9470  PRINT  -WRONG  -  the  correct  answer  is  8  (PRINT  25+2-31* 

9480  SOTO  9500 

9490  PRINT  “RIGHT  -  you've  got  the  right  idea  about  i««ediate  wode* 

9500  PRINT 

9510  INP'JT'press  ENTER  to  continue*;!* 

9520  GOSUE  9970 

9530  PRINT’Nhat  command  will  erase  everything  in  temporary  memory’* 

9540  PRINT 

9550  INPUT'Tvpe  in  the  command  using  capital  letter s* ; T$ 

9560  PRINT 

9570  IF  T*  *  *NEH*  GOTO  9600 

9580  PRINT'NRQNG  -  the  command  is  NEW* 

9590  SOTO  9610 

4600  PRINT'CORRECTO  NUNDO  -  THAT’S  RIGHT' * 

9610  PRINT 

9620  INPUT'press  ENTER'lT* 

9630  GOSUB  9a70 

9640  PRINT'Nhat  command  will  list  all  the  line  numbers  and  statements* 
9650  PRINT’that  you  have  placed  in  temporary  memory’* 

9660  PRINT 

9470  INPUT'Type  in  the  command  using  capital  letters'tT* 

9630  PRINT 

9690  IF  T$  =  ’LIST*  GOTO  9720 

9700  PRINT'NRGNG  -  the  correct  answer  is  LIST* 

9710  GOTO  9730 

9720  PRINT'RIGHT  YOU  ARE1* 

9+30  PRINT 
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9740  INPUT ’press  ENTER’; T* 

9750  SQSUB  9970 

9740  RRINT’Nhat  is  the  cottand  to  delete  lines  20  to  50‘ 

9770  PRINT 

9790  PRINT’S  DELETE  20-50" 

9790  PRINT'S  NEK’ 

9800  PRINT’C  DELETE  20  to  50* 

9910  PRINT’D  ERASE  20  to  50’ 

°320  PRINT 

9830  INPUT’E.VTER  the  correct  answer’;Tt 
9940  PRINT 

°350  IF  T$  =  ’A’  GOTO  9890 

9840  PRINT’NRONG  the  correct  answer  is  A  (DELETE  20-50)’ 

9970  SOTO  9990 

9380  PRINT-RIGHT  AGAIN1* 

a990  PRINT 

9900  INPUT’press  ENTER’; T$ 

9910  SQSUB  10210 

9920  IF  T*  =  ’B"  GOTO  9500 

9930  RETURN 

9940  REN  *♦ 

9950  REN  »♦  This  subroutine  clears  the  screen  on  anv  terainal 
9940  REN  ♦* 

9970  FOR  X  =  I  TO  24 
9930  PRINT 
9990  NETT  « 

13000  RETURN 
10010  PEN  ♦♦ 

10020  »EN  **  THIS  SUBROUTINE  IS  THE  NENU 
10030  REN  ** 

10040  PRINT’  LESSON  1* 

10050  PRINT 

10060  PRINT’This  is  the  first  part  of  a  two  part  lesson* 

10070  PRINT* It  is  divided  into  the  following  sections.’ 

10080  PRINT 

10090  PRINT’ll  Introduction  51  Statements  l  Program 

10100  PRINT'S)  Hardware  4)  Print  Stateaent" 

10110  PR!NT"3!  Software  ’)  End  L  Stop  Statenent 

10120  PRiNT’4!  General  Information  3  ;*iediate  Node.  NEK’ 

10130  PRINT"  LIST.  DELETE’ 

1C14C  PRINT 
10150  RETURN 
1C  140  RUN  ’NENU’ 

10170  PUN  ’LESSGN1A" 

10130  REN  *» 
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10200  REM  ** 

10210  SOSUS  9970 

10220  PRINT'Nhicn  do  you  msh  to  do“ 

10230  PRINT 

5024')  PRINT'A  Continue  on" 

10250  PRINT'S  Review  tnis  section  again’ 

102 SO  PRINT 

10270  INPUT'press  the  letter  opposite  your  choice  and  press  ENTER'* T$ 
10280  RETURN 
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1250  SOSUB  6960 
1260  SOSUB  7000 

1270  PRINT’A  I’«  taking  this  part  in  its  entirety." 

1280  PRINT'S  1  wish  to  review  selected  areas  (or  take  the  test)." 

1290  PRINT'C  I  want  to  go  to  the  first  part." 

1300  PRINT'D  I  want  to  return  to  the  Menu." 

1310  PRINT 

1320  INPUT'Press  either  capital  A,  B,  C,  or  D  and  then  press  ENTER": T$ 

1330  IF  T*  =  "0*  SOTO  7220 

1340  IF  T*  =  "C*  SOTO  7230 

1350  IF  TJ  =  "8"  SOTO  1430 

1360  IF  Tt  <>*A*  SOTO  1270 

1370  60SUB  1550 

1330  SOSUB  2570 

1390  SOSUB  3030 

1400  SOSUB  4380 

1410  SOSUB  5170 

1420  SOSUB  6400 

1430  SOSUB  6960 

1440  SOSUB  7000 

1450  PRINT 

1460  PRINT'Please  type  in  the  nueber  beside  the  area  you  wish" 

1470  PRINT "to  review  (1  through  7)  and  then  press  ENTER  -  press  0  and" 

1430  PRINT'press  ENTER  to  return  to  the  Menu." 

1490  PRINT 

1500  INPUT'What  is  your  choice";N 

1510  IF  N  =  0  SOTO  7220 

1520  IF  N  *  7  SOTO  ’210 

1530  ON  N  SOSUB  1550,2570,3080,4380,5170,4400 

1540  SOTO  1430 

1550  GOSUB  6960 

1540  PRINT  "  LIBRARY  FUNCTIONS" 

1570  PRINT 

1530  PRINT’Nanv  sathesatical  FUNCTIONS  such  as  square  root,  trignoaetric" 
1590  PRINT'functians,  and  logritnes  are  difficult  to  derive  using  just" 

1600  PRINT’addition,  subtraction,  eultiplication,  and  division.  To  help" 
1410  PRINT'us  use  these  FUNCTIONS  without  deriving  thee  fro*  scratch" 

1620  PRINT'each  ti*e  we  want  to  get  a  tangent  or  sine  or  square  root,  etc." 
1630  PRINT'hicrosoft  BASIC  has  a  library  of  ccetoniy  used  FUNCTIONS" 

1640  PRINT" al ready  prograeeed  into  peroanent  *e*ory.  All  you  have  to" 

1630  “RINT’do  is  call  thee  with  a  BASIC  coeeand  whenever  you  want  to  use" 
1660  PRINT’the*.’ 

1470  PRINT 

1630  DR,’NT"Vau  identify  which  function  you  want  to  use  by  using  a  keyword.' 
1690  PRINT'such  as  SQR  for  souare  'oot.* 

'.TOO  PRINT 


64 


*****  Listing  of  Prograi  ’LESS0N1A’  ***** 


07/10/83  -  01:59:4! 


1710  INPUT'press  ENTER" » T t 
1720  5QSU8  6940 

1730  PRINT"  LIBRARY  FUNCTIONS  (cont)' 

1740  PRINT 

1750  PRINT- If  you  wanted  to  find  the  square  root  ot  25.  n  the  INHEDIATE" 
1760  PRINT “ acde,  vou  would  type  in:' 

1770  PRINT 

1780  PRINT-PRINT  SfiR!25>” 

1T90  PRINT 

1800  PPINT'Which  would  result  in:' 

1810  PRINT 
1320  PRINT'S" 

1330  PRINT 

1340  PRINT'Notice  how  the  keyword  precedes  the  value  to  be  aamoulated. * 
1850  PRINT" and  the  value  is  enclosed  in  parenthesis1'* 

1360  PRINT 
1970  PRINT 

1930  INPUT'press  ENTER": Tt 
1890  GOS'JB  6960 

1900  PRINT*  LIBRARY  FUNCTIONS  Icont)* 

1910  PRINT 

1'320  PRINT* Another  example  would  be:' 

;«:e  print 

1 94C  PRINT-13  PRINT  33fi'2*4:>' 

1950  PRINT-RUN* 

l'Sj  PRUT'Nhich  would  give  voul* 
l-’O  PRINT 
;?30  PRINT'S* 

1«90  PRINT 

2300  PR INT* In  this  example.  note  that  we  applied  a  function  to  an' 

2010  PRlNT'expression  with  more  than  one  ter».  This  is  entirely  legal,' 
2020  PRINT ’and  can  shorten  the  number  of  statements  you  »ay  need  in* 

2030  PRINT*vour  prograe. 1 
2040  PRINT 

2050  INPUT’press  ENTER' ;TI 
2060  SQSUS  69i0 

2070  PPINT'  LIBRARY  FUNCTIONS  (Conti* 

2080  PRINT 

2090  PRINT "You  »av  use  a  function  statement  any  nuiber  of  times  in  vour’ 
ZIOu  ^PINT'prograt.  The  different  types  of  LIBRARY  FUNCTIONS  will  be’ 
2110  PRINT'reviewed  in  a  later  lesson.* 

2120  PRINT 

2130  PRINT'If  vou  don’t  find  the  function  you  want  in  the  library,  then” 
2140  PRINT'vou  «av  create  vour  own  function.  This  is  called  a' 

2150  PRINT-USER  DEFINED  function.  A  USER  DEFINED  FUNCTION  is  not' 

2160  P6INT’stcreS  oereaner.tlv  :n  eeeory,  >t  can  onlv  be  used  in  the’ 
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2170  PRINT’prograe  it  was  created  in.  We  Kill  discuss  OSES  DEFINED" 

2130  PRINT’FUNCTIONS  in  a  later  lesson." 

2190  PRINT 
2290  PRINT 

2210  INPUT'press  ENTER"; T$ 

2220  S0SUB  6940 

2230  PRINT-QUIZ  tiie!  -  USE  ONLY  CAPITAL  LETTERS  IN  YOUR  ANSWERS" 

2240  PRINT 

2250  PRINT’Are  the  library  functions  stared  pertanentlv  in  eenory'1" 

2260  PRINT 
2270  PRINT’S  Yes" 

2280  PRINT’S  No" 

2290  PRINT 

2300  INPUT'press  the  letter  opposite  the  correct  ansKer  and  press  ENTER" ; TS 
2310  PRINT 

2320  IF  T*  =  "A"  THEN  SOTO  2330 

2330  IF  T*  O  "A"  THEN  PRINT  "WRQN6  -  the  correct  answer  is  A  (Yes)" 

2340  GOTO  2360 
2350  PRINT-CORRECT" 

2360  PRINT 

2370  INPUT'press  ENTER  to  continue" :T$ 

2380  GOSUB  6960 

2390  PRINT" I f  the  function  for  converting  a  nueser  to  an  integer  is' 

2400  PRINT* INT,  shou  the  statement  for  finding  the  integer  value  of" 

2410  PRINT'27.56.  Use  line  nuiber  10,  and  leave  only  one  space" 

2420  PRINT’c-etKeen  sleeents.  Do  not  include  the  RUN  cowand." 

2430  PRINT 

2440  PR INT "DON’T  FORGET  TO  ENCLOSE  ’27.56’  IN  PARENTHESIS" 

2450  PRINT 

2460  INPUT'Type  in  »our  answer";!* 

2470  PRINT 

2430  IF  T$  =  "10  PRINT  INT (27.56) "  SOTO  2510 

2490  PRINT-WRONG  -  the  correct  answer  is  —  10  PRINT  INT(27.56J" 

2500  GOTO  2520 
2310  PRINT-CORRECT- 
2320  PRINT 

2330  INPUT'press  ENTER  to  continue'iU 

2340  GCSUB  7120 

2330  IF  T4  =  "B"  GOTO  1350 

2360  RETURN 

2370  GOSUB  6940 

2380  PRINT"  Variables" 

2390  PRINT 

2403  sRINT"When  wording  with  coeputers,  it  is  necessarv  to  define  the  type" 
2610  PRINT  "of  data  .ou  are  eampulating,  if  for  no  other  reason  than  to’ 
2420  FRlNT’coMumcate  your  prograe  to  soeeone  else.  Nuebers.  such  as" 
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2630  PRINT’10,  32,  50,  1,  etc.,  are  considered  CONSTANTS.  Can  you  guess* 
2640  PRINT'why'1  Its  because  they  never  change,  they  are  always  worth  a* 
2650  PRIHT’set  aeount.  They  are  CONSTANT.* 

2660  PRINT 

2670  PRIHT'On  the  other  hand,  in  algebra  we  learned  that  we  could  a an-" 
2639  PRlNT’ipulate  nunbers  and  define  problets  easier  if  we  assigned* 

2690  PRINT'letters  such  as  X  and  Y  to  equations.  In  this  case.  X  and  Y" 
2700  PRINT’are  VARIABLES.  That  is,  they  could  assuee  anv  value  we  wanted" 
2710  PRINT'as  long  as  the  value  suited  the  equation.* 

2720  PRINT 

2730  INPUT’press  ENTER* ; T * 

2740  S03U8  6960 

2750  PRINT*  Variables  (contl* 

2760  PRINT 

2770  FRINT’The  wav  we  treated  letters  in  algebra,  that  is.  assigning* 

2730  PRINT'thea  values  that  were  variable  and  were  for  calculation* 

2790  PRINT’purposes,  is  the  sase  way  tie  treat  the*  in  the  coeputer  world.* 
2300  PRINT 

2310  PRINT’Por  instance,  if  we  give  X  the  value  of  8,  then  the  computer" 
2820  PRINT'will  store  the  value  8  in  a  aesor y  location  that  is  labeled  X." 
2830  PRINT'The  value  tnl!  net  change  until  we  assign  a  new  value  to  the* 
2840  PRINT "J abel  X,  or  quit  SASIC.* 

2350  PRINT 

2860  PR!NT*There  are  two  funda*ental  types  of  variables  in  BASIC,  they" 
2370  PR  I  NT* are  NUMERIC  variables,  and  STRING  variables.  Our  previous* 

2830  PRINT*e:a»p!e  of  assigning  X  a  nu*ber  sade  it  a  NUMERIC  variable." 
2890  PRINT 

2990  INP'JTVess  ENTER'; 

2’!.i  333UB  6960 

2920  PRINT* If  we  had  assigned  a  CHARACTER  (such  as  iv  na»e,  DAN)  to  a" 

2930  PRINT* vari able,  then  we  would  have  created  a  STRINS  variable." 

2940  PRINT 

2950  PRINT'A  STRINS  variable  holds  data  that  will  not  be  operated  on* 

2940  PR!NT*.tathe*atically.  !l  wouldn’t  want  »y  naie  operated  on,  would” 
2970  PRINT'you’l" 

2980  PRINT 

2990  PRINT'The  reason  for  having  STRINS  variables  is  so  we  can  do  things' 
3000  PRINTMike  print  labels,  lake  word  processors,  and  develco  coiputer* 
3010  PRINT'assisted  instruction  programs.  If  these  tasks  are  done  in" 

3029  PRINT'BASIC,  tnen  they  are  done  using  STRINGS.' 

3030  PRINT 

’040  INPUT’press  ENTER"! T» 

3050  SQSUB  7129 

3060  IP  Tt  =  *8“  SOTO  2579 

: 570  RETURN 

3089  S03UB  3?60 
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3C90  °RINT*  Numeric  Variables* 

3100  PRINT 

3110  PRINT" In  computers  t<e  assign  values  to  variables  to  ease  our  job:* 

3120  PRINT 

3130  PRINT" X  =  U2* 

3140  PRINT 

3150  PRINT'In  this  case,  the  value  of  3  would  be  assigned  to  i  and  the* 
3160  PRlNT'computer  would  store  the  value  in  its  memory  until  we  either* 
3170  PRINT'changed  it,  or  quit  BASIC.  In  other  words,  we  assigned  the* 
3180  PRINT’vaiue  of  3  to  X,  but  only  temporarily.  Take  the  following* 

3190  PRINT’exsmple:* 

3200  PRINT 

3210  PRINT’10  i  =  1*2’ 

3220  PRINT"20  X  =  4* 

3230  PRINT 

3240  PRINT'ifhat  do  you  think  the  value  of  l  is  if  we  RUN  the  example?* 

3230  PRINT 

3260  INPUT'press  ENTER  for  the  answer'll! 

3270  60SUB  6960 

3280  PRINT*  Numeric  Variables  (cant ) " 

3290  PRINT 

3300  PRINT*0f  course,  you  knew  the  answer  was  4.  didn’t  you*' 

3310  PRINT 

3320  PRINT'Because  lonq  praqrams  sometimes  need  many  variables,  Microsoft* 
3330  PRINT'BASIC  allows  you  to  use  all  the  letters  of  the  ilphttet  PLUS* 
3340  PRINT’it  allows  you  to  add  a  SECOND  letter  OR  number  to  a  variable* 
3330  PPINT'to  distinguish  it  from  another.  Al,  X2,  YY,  YZ.  and  PF  are* 
3360  5R!NT*'.egal  variables.  1A,  22.  or  33  are  not  legal.  Can  you  see* 
3370  PRINT " why ^  Right,  thev  do  not  begin  with  a  letter  of  the  alphabet" 
3330  PRINT" (2  letters  Gr  1  letter  and  1  number  are  max  length  allowed)* 
33*0  PRINT 

3400  PRINT* vau  may  also  assign  a  value  to  a  variable  that  is  assigned  to* 
3410  PRINT'other  variables.  For  instance*." 

342)  PRINT 

3430  INPUT'press  ENTER  for  an  example  of  variable  assignment*!!! 

3440  SQSUB  6960 
3430  PRINT  *  1 0  1  =  4* 

3460  PRINT *20  Y  =  7" 

3470  PPINT'30  I  =  J*Y* 

3480  PRINT 

34°0  PRINT'The  variable  3  is  assigned  the  value  of  XH  or  U.* 

3300  PRINT 
3510  PRINT 

3520  PRINT'All  »anables  are  assigned  the  value  of  0  when  you  first* 

3530  PRINT’start  up  Hicrase*:  BASIC.  However,  some  languages  assign* 

3540  PR!N’*inde<imte  values  to  all  variables  at  first,  and  wait  for  you” 
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3550  PRINT'to  change  the*.  That  is  nhy  you  *ay  see  qrograMers  setting  a* 
3560  PRINT",  anable  to  0  xhen  there  appears  to  be  no  other  reason  for  it.' 
3570  PRINT 
3530  PRINT 
3590  PRINT 

3600  INPUT'press  ENTER' iTi 
3610  S3SU9  6960 

36IC  PRINT'  Numeric  Variables  tcont) “ 

3630  PRINT 

3a40  PRlNT'Nhen  you  use  variables  on  the  right  side  of  an  equation" 

3650  PRINT* you  *ust  have  assigned  values  to  the  variables  previously.  It’s* 
3660  PRINT’*  KEY  CONCEPT  that  the  equal  siqn  does  not  *ean  *athe*dtical' 
3670  °RINT'eauahty.  The  equal  sign  is  an  ASSIGNNENT  state»ent.‘ 

3680  PRINT'It  ASSIGNS  the  value  on  the  right  side  of  the  equation* 

3690  PRINT'to  the  variable  on  the  left.' 

3700  PRINT 

3710  PRINT  *  10  X  =  X*2‘ 

3720  PRINT 

3730  PRINT" Ir.  the  above  stateaent,  X  Mill  be  assigned  the  value  of  ' 

3740  PRINT' 0*2,  or  2' 

3750  PRINT 

3760  INPUTnpress  ENTER"; T* 

3770  SQSUB  6960 

3730  PRINT"  Nuaerk  Variables  (cont.1' 

3790  PRINT 

3000  PRINT'10  X  =  4* 

3810  PRINT 

3820  PRINT' In  the  above  evaaple.  »e  assigned  the  value  of  4  to  X.* 

3330  PR INT 'In  so*e  dialects  of  BASIC,  xe  *ust  use  the  xord  LET  to  assign” 
3840  PRINT'a  value  to  a  variable." 

3850  PRINT 

3360  PRINT'10  LET  X  =  4" 

3870  PRINT 

3380  PRINT'Such  as  above.  It  is  not  necessary  to  use  the  xord  LET  ;n" 

3890  RRINT"Hi;rosof t  3ASIC.  Ne  oniv  lention  it  because  you  «av  wish  to" 
3900  PRINT'copy  a  prograa  xritten  in  another  dialect  onto  Nicrosoft. 

3910  PRINT'vou  do,  you  aav  either  leave  the  LET  aord  m  or  drco  it.  the'' 
3920  PRINT'SASIC  language  processor  ail!  accept  either  vsrsion." 

3530  PRINT 

3940  INPUT'press  ENTER": T5 
3950  GG3CB  6960 

!?aC  RRINT"*(i::h  of  t*e  *oiic»ing  is  a  legal  stateaent  in  Nicrcso»t  BASIE’* 
print 

:-i)  pr:nt"a  io  let  jy  =  2* 

3’P'j  PRINT'S  20  IX  =  2*3' 

6.-0V  °RINT*C  15  a:  =  56' 


e 


3 


*****  listing  of  Prograa  'LESSDNIA’  **♦»* 


07/10/33  -  01:59 


4010  PRINT'D  10  23  -  4+V 
40Z0  PRINT 

403)  lNFljT":ress  the  letter  opposite  the  correct  answer  and  press  ENTER* : rS 
4040  PRINT 

4050  i?  Tt  =  "A"  SOTO  4120 

40sG  rPlNT“liPONS  -  the  correct  answer  is  A  t  LET  l>  =  2i" 

4070  PRINT 

4.130  PRINfThts  is  a  rEv  concept,  vcu  aav  wtsn  to  review  variables" 

ICO'  °R'.NT‘again,  to  be  sure  »ou  understand  tree.” 

4100  TP! NT 
4 IK:  S3T0  4140 

412'’  PRINT  "CORRECT  -  3ooa  .oo‘“ 

4130  PRINT 

4140  INPUT’press  ENTER" iTJ 

4150  SGSUB  3940 

?R!NT,i,h:cl>  cf  the  following  is  a  legal  statement  if  .-a-iables  A  and" 

4 1  TO  PRINT'S  ha.e  oreviouslv  teen  assigned  a  value’* 

4130  PRINT 

4190  PRINT’S  10  A+3  =  C 
J 200  ?RINT"3  13  C  =  A*B“ 

4212  PRINT’D  10  22  *  4*B4 
4223  ?»INT"0  IS  222  *  A*Bm 
4233  PRINT 

4243  INPUT "press  the  letter  cocos: te  tne  ccr-ect  answer" :T» 

4250  PRINT 

42:3  IF  T*  *  "S*  R]TC  422) 

4:':  PPINT’nPCNC-  -  the  ccrrect  answer  is  i  i  -  4*S" 

423C  ?R!Nr’vou  u«  need  to  renew  this  sect::-'  if  .;u  did  rpt  get  this" 

429m  :siNT“ouestion  right." 

4300  PRINT 

4213  GOTD  4240 

422)  PPINT'CEREEC'  -  that  was  a  *.£7  ccrceot.  vou'3  doing  good'" 

4230  PRINT 

424m  INP-JT'bress  ENTER” ; TS 

433d  SOSL-5  ’120 

43s )  Jp  "$  =  "S"  GOTO  3060 

4373  RETURN 

4230  SOSiiB  45S0 

4*q(!  PRINT'  String  Variables' 

4400  PRINT 

4410  PR  I  NT  "wherever  you  assign  CHARACTERS  or  NLNBEFS  that  will  rot  oe 
4420  pRINT'iatheraticallv  lar.ipulatefl  -  seen  as  a  street  address)  to  a* 

44 y)  PRINT". ariaole,  you  have  created  a  STSI.N5  variable." 

444  i 

*lV:  :ilNT "ne-e  is  a  stadia!  wav  sating  a  STRING  .n  BASIC.  NoST" 
44s1:  PRIfattac*  a  dollar  sign  i!  tc  the  era  :f  a  variable  label." 


*****  ustinq  ct  Prog rs*  ’ LESSON  1  A’  ***** 


07,17/8 


147' 

F'RINT'Nt’en  , 

UQQ 

.-s;!NT“»i  1  i  : 

44*0 

PRINT"  du  Mi 

4500 

PRINT "  suets1 

4510 

pp.1^7 

4*2C 

fSINT,?.$  * 

IJJV 

PRINT 

4540 

INPUT “press 

4550 

SOSOS  6?i0 

4560 

PRINT  * 

IC1 
•i  „  i  V 

PRINT 

4530 

DR!NT“<S  =  1 

4*90 

°RINT 

4600 

PRINT 'Here. 

4610 

PRINT'S*  thi 

4620 

PRINT  CRftiO 

4a  3C 

°R!NT 

;’!NT  ’* It  = 

lafO 

PRINT 

466: 

:R!NT"In  tfc: 

4  s? 

PRINT  ‘the  l' 

4:3. 

p»:r 

4e$‘. 

c9 1  NT "  E.i  a:T2 1 

^  "A.  . 

-RIN" 

INPUT'prsss 

4-2C 

30SUS  ;-;0 

- 

PRINT  at : :h 

: 

PR  IN- 

4'5: 

:'RINT“4  ATI 

4  "60 

PRINT5*  r 

fl77'.: 

RRI-.T-;  4ti 

4-30- 

FRING'D  AS 

4*  9*' 

PRINT 

13'.’0 

INPUT  csss 

J3!0 

PRINT 

4320 

IF  "»  =  *5' 

4330 

^'INT-mR'NG 

4  340 

£0T[  43=2 

:  350 

:p.;t  ::pre: 

45;; 

P*lrr 

43*0 

IW?'JT";r  jS5 

433'j 

S?Mi  3ey) 

13 r: 

'•R;t:r"*o  m 

XV  ’ 

;  V"3jt3 J‘ 

4  *  ’. 

c " !  n  r 

: *  I N  T “ 1 0  -1 

tmq  Variables  (cent)” 


re  -oo  are  on. 


■'ion*  '  ■’ 


C'ii  is  an  e  an ole  ;;  a  9A5 1 Z  pro;'.?  s:d  its 


tPS'Tii  Tr.:s  :s  real . »•  a*es::-e.  1  sear-  real  1 . .  '.THRS.’i 


07/10/33  -  01:59:45 


*****  -isting  of  P'oqru  ' LES3JN1A’  ***** 


5350  rRlsiT"  Uei rig  An thaetic  icon:;' 

5360  PRINT 
5370  PRINT 

5330  PRINT'  i  *  10*I.;-i2*3*2AI)* 

5390  PRINT 

5900  PRINT*Cn  the  first  scan,  the  coee-uter  »o<iid  do  The  tens  within  the* 
3910  PRINT'parenthesis.  It  Mould  first  do  espanentutian  !2A2  is  41  ‘ 

3920  FRJNT'a  no  :r-en  it  «culd  do  the  *ul  tipi  nation,  and  finally  the  ado:-'’ 
5973  sPINT*tion.  The  /aloe  inside  the  parenthesis  would  he  set  at  10“ 

5:jO  FRINnhen  it  would  da  the  terns  outside  the  parenthesis  in  order  of“ 
5°50  PRlNT’ispcrtance.  c,.rsi  it  wo aid  do  the  division,  then  it  ttoulo' 

5-6C  PRINT’do  the  addition  'because  it  is  scanning  Pros  left  to  " 

5 - ?0  BRINT"’”.ghti  and  the  subtraction  last,  final!.,  it  would  set  the3 
3992  PRINT'value  at  X  at  4* 

599?  PRINT 

sJOC  I.Wpress  ENTER"; T1 
a010  S030S  ; 960 

6020  PRINT*  Using  Anthaetic" 

*03?  PRINT 

6040  PRINT'parenthesis  can  he  used  to  establish  precedence  within  s’ 

6050  PRIST’stateaent.  Suppose  »cu  want  to  sake  sure  that  the  LAST  part  :f“ 
60eC  FRlNT“a  statement  is  calculated  FIRST.  Tou  can  use  parenthesis." 


:070 

PRINT "Per  esaaole:* 

iCSO 

PRIN! 

a090 

oo;NT“G  -  23";2*l!" 

ai?3 

P°!NT 

z  i .  •; 

sP’N'*i s  ,iu:h  different  than:* 

a  1 20 

5p:nt 

a!  30 

PRINT  'Gi72  '2*:* 

3*4  0 

PRINT 

1 1  5 ;) 

PRINT "Co  .eu  see  »n.?  The  first  value  assignee  to  3  is 

35937.  the 

6160 

cRlNT-se::r.d  -.slue  assip-ed  is  1 09-.1  *  Stud,  the  esaaple 

careful! v. 

.  *  *■■ 

iNPt’T’press  ENTER*: T $ 

3130 

SCSUS  6s 60 

al  90 

-?INT"Shich  or  the  following  statements  will  assign  the 

/alue  of  1 

6200 

RRINftp  the  variable  ¥'* 

j ; :  a 

PRINT 

a::o 

RS.’NT’R  ,N  -  1*2 :2A2'-2" 

6220 

PRINT'S  1  =  5*2*/3*3*l ' -10* 

a24) 

-R!Nr"2  fi  s  Z0/2!2*>! !" 

3250 

PRINT'S  «  *  10*2-2'' 

6260 

'-PINT 

a  2’) 

INPUT'press  the  letter  opposite  the  ccr'ect  answe'  ans  : 

'ess  ENTER 

alSO 

ic:lNT 

a.90 

if  4  =  *3“  SOTG  a240 

a2/ 

“RINT'NRONS  -  the  'lent  answer  is  9  :?  *  5*2+  2*/*! . -10" 

'4 


*****  Listing  c f  Program  'LSSSGNIh’  ***** 


07/10/93 


a:  10  PRINT-  '.n  -  5*2*1101-101“ 

*320  PRINT"  ill  s  10  *  10  -  10.  * 

a330  33T0  6350 
s34y  °RI.VT  "CORRECT  * 

4330  PRINT 

6340  INPUT -^ress  ENTER  to  conti.iue'iTI 

6370  6GSU6  7120 

6390  IF  T$  =  *B*  SOTO  3170 

6390  RETURN 

6400  30SU9  4960 

4410  PRINT"  Comparing  Variables” 

6420  PRINT 

6430  PR!NT“BA31C  uses  symbols  to  cospare  values  to  detercir.e  relationstiips* 
6440  PRlNT'such  as  whether  ane  variable  is  less  than,  sore  than,  or  equal' 
6450  PRlNT"to  another  variable.  We  have  already  used  one  of  these  symbols" 
6440  PRINT'it  is  called  the  equal  sign  (*i.  When  you  start  programming,* 
6470  PRINT'vcu  will  often  want  to  check  to  see  if  one  variable  is  dif -* 

■:480  PRINT'ferent  than  another.  There  are  s>.<  symbols  .ou  can  use  to" 

6490  FRINT’do  this.* 

6530  PRINT 

6310  INPUT’aress  ENTER  for  eiaaoles'tTI 
6520  SOSUB  4940 

6330  PRINT*  Compart  no  Variables  iront!" 

6540  PRINT 

6550  PRINT*  .'s/bPoI  table)  * 

6560  PRINT 
6570  PRINT 


6580  PRINT* 
6390  PRINT 

Svabol 

(leaning 

E/.  ample 

6600  PRINT" 

= 

equal 

A=2" 

6410  PRINT* 

>. 

less  than 

A<B* 

6620  PRINT- 

v 

greater  than 

A;B* 

4630  PRINT* 

;• 

not  equal  to 

AOB* 

6640  PRINT" 

«;= 

less  than  or  eoual 

A'.=B" 

6630  PRINT” 

}- 

greater  than  or  equal 

A>=B* 

4660  PRINT 

4670  PRINT’We  will  discuss  these  in  tare  detail  in  a  later  lesson.” 

6630  PRINT 

4690  INPUT-press  ENTER" ; T* 

6700  SOSUB  6960 

6710  PRINT'That  concludes  this  lesson.  When  vou  hit  ENTER  you  will* 
4720  PRINT’be  returned  to  the  start  of  this  part.  You  «av  either  take” 
6730  PRINT'the  test  or  review  selected  areas.* 

6740  PRINT 

6750  PRINT'By  now.  vou  should  understand  the  followng  prograi.* 

6740  PRINT 


*«»»  Listing  of  Proqraa  'LESSGN1A'  «»*» 


07/10/83  -  01 


a’70  PRINT*  10  °RINT"CHRS(34)  "The  product  cf  10  tmes  3  is  "CHft*<34)  - 
6730  PRINT “20  PRINT  10  ‘8" 
o790  PRINT-10  PRINT* 

6300  PR1NTM0  5RINT* 

6810  PRINT *50  END’ 

6320  Pc'T'RUN* 

1,J  PRINT 

6840  FRINT'Your  hateKorl.  assiqnsent  Kill  require  you  to  write  a  prcoraa’ 
6350  PRINT’siailar  to  this.  Line  10  prints  the  string,  line  20  prints' 
6860  PRiNT'the  »athe»atical  calculation.  Lines  30  and  40“ 

6370  FRlNT’pnnt  *.ko  blank  lines.  vcu  sake  the  prograa  Kork  by  using’ 
6380  PRiNT'the  RUN  ward  a‘ter  you  have  entered  the  stateeents.* 
iS9C  PRINT  "/our  actual  hoaework  assignaent  is  at  the  end  of  the  test.1 
3?CC  PRINT 

6910  !NP'JT“?ress  ENTER'; T* 

6920  RON 
i-30  REN  ♦* 

o94C  REN  tt  This  subroutine  clears  the  screen  on  any  teramal 

6950  REN  ft 

a  960  for  1  =  ;  TO  24 

3?:}  PRINT 

5 9 30  NE FT  I 

699.:  RETURN 

"00  PRINT-  LESSON  IB* 

*010  PRINT 

7020  PR!NT,This  is  the  second  oart  of  a  two  part  lesson" 

"030  PRINT* It  is  divided  into  the  following  sections.' 

7040  JR!NT 

7750  PRINT*!)  Library  Functions  4)  String  Variables’ 

'060  PRINT'S  Variables  ‘.general!  5!  Usmc  Arithaetic* 

7C 70  PRINT'S!  Nuaenc  Variables  e;  Cdooarmg  Variables’ 

703C  PRINT*  &  Lesson  Suaaarv' 

'090  PRINT’  ",  TEST 

'll"  ''PINT 
*;:e  RETURN 
’120  30SUB  i'iC 

".30  PRINT’Nhich  do  you  «ant  to  do" 

•140  PRINT 

7150  PRINT ’A  Continue  on" 

7160  PRINT’S  RevieK  this  lesson  again" 

’170  PRINT 

’130  INPUT’press  the  letter  ooposite  vour  choice  and  press  ENTER*; T» 
7190  IF  *J  ■  •  *fi*  m  Tt  <5  ’8*  SOTO  7130 
7200  RETURN 
7210  RUN  ’TEST  1 " 

722)  PUN  ’NENU’ 


mtt  Luting  of  Proqraa  'TESTI'  **♦«» 


07/10/83 


1000  REN  »» 

1010  REH  H  LESSON:  TEST!  VERSION:  1  AUS  33 

1020  REN  *»  AUTHOR:  CAPT  DAN  CREA6AN 
1030  REN  n  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 

1040  REN  « 

1050  REN  ft  VARIABLES: 

IOsO  REN  *t 
1070  REH  « 

1080  REN  »♦ 

1090  REN  t* 

1100  REN  « 

1110  REN  t* 

1120  REN  »* 

1130  REN  ** 

1140  REN  t« 

1150  REN  t* 

Usd  CLEAR  30C0 
1170  SOSUB  4130 
1130  DIN  Nil  10001 
1190  DIN  9110) 

1200  DIN  S ( 1 000) 

1210  PRINT- 
1220  PRINT 

1230  PRINT’This  test  consists  of  10  questions,  you  »ust  get  70  percent" 

1240  PPINT'of  the*  correct  to  pass,  (that’s  7  right  out  of  the  10  goes-* 
1250  PRINT'tions) .  Use  cnlv  capital  letters  in  your  answers,  don’t* 

1240  PRINT "include  extra  spaces  or  letters.  If  you  answer  a  question  wrong. 
1270  PRINT'you  get  the  correct  answer,  plus  a  reference  for  review.* 

1230  PRINT'In  addition,  you  will  get  a  synopsis  of  areas  for  review- 
1290  PRINT’at  the  end  of  the  test.' 

1300  PRINT 

1310  PRINT" I f  you  successfully  pass  the  test,  vou  will  be  given  your* 

1320  PRINT'hoeework  assigntent.  GOOD  LUCK” 

1330  PRINT 

1340  INPUT’press  ENTER  to  continue*; T-* 

1350  SOSUB  4130 

1360  PRINT'ls  a  coeputer  progra*  called  Software” 

1370  PRINT 

1380  PR I NT* A  Yes* 

1392  PRINT'S  No’ 

1400  PRINT 

1410  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER* ; T* 
1420  PRINT 

1430  IF  Ti  =  *A“  THEN  6QTC  1470 

1440  PRINT-WRONG  -  the  correct  answer  is  A  -Yes.  programs  are  software)' 

14*0  PRINT"  review  part  1,  hardware  and  software.' 


N<  < X )  =  NANES  ARRAY,  USED  TO  READ  IN  SEQ¬ 
UENTIAL  NAMES,  AND  TO  WRITE  OUT 
UPDATE  NANES. 

SIS  I  =  SCORES  ARRAY  -  USED  TO  READ  AND 
WRITE  SCORES 

am  =  ARRAY  TO  KEEP  TRACK  OF  NUNBER  OF 
CORRECT  ANSWERS.  IF  AN  ARRAY 
ELEMENT  EQUALS  1,  THE  ANSWER  WAS 
CORRECT 


FINAL  TEST  (lesson  ll* 


02:17103 


78 


•**♦*  listing  at  Froqrae  ’TESTI’  ***** 


07/! 0/83  -  02:17:03 


1440  SOTO  1490 
1470  PRINT'CORRECT* 

1480  9U!  =  ! 

1490  PRINT 

1500  INPUT'press  ENTER" ;TI 
1519  SGSU3  4130 

’.520  PRINT'Nhich  at  the  following  is  c.t  etaaple  of  a  FUNCTION" 

1530  PRINT 

1540  PRINT'fl  LIST’ 

1550  PRINT'S  NEW 
1540  PRINT'C  SQR" 

1370  PRINT'D  ADD' 

1580  PRINT 

1590  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER': TS 
1400  PRINT 

1410  IF  Tl  =  'C"  THEN  SOTO  1450 

1420  PRINT-WRONG  -  the  correct  answer  is  C  (S8R1* 

1421  PRINT'  1ST  will  list  vour  prograa  lines,  NEW  erases  »our* 

1422  3RINT"  prograe,  and  ADD  is  not  a  legal  BASIC  word." 

1430  PRINT"  review  oart  2.  FUNCTIONS* 

1440  SOTO  1470 
1450  PRINT-CORRECT" 

1440  0(21  =  1 
1479  PRINT 

1430  INPUT'press  ENTER  to  ccntmue'sTI 
1490  SCSUE  4130 

1700  PRINT-VIhicts  statement  would  print  the  word  TEST' 

1719  PRINT 

1”C  PRINT'A  PRINT  TEST* 

1730  PRINT'S  PRINT  'CHPI(34!'TEST'CHRI(34> 

1’40  PRINT'C  OUTPUT  'CHR*!34) ' TEST 'CHR* ( 34) 

1750  PRINT'D  PRINT  ’TEST’ " 

1740  PRINT 

1770  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER' ; T* 
1780  PRINT 

1790  IP  Tl  =  'S'  THEN  SOTO  1830 

180C  PRINT'NRCNS  -  the  correct  answer  is  8  (PRINT  'CHR* (34) 'TEST *CHR* «. 34) ' ) ' 
1802  PRINT*  Answer  A  would  treat  the  word  TEST  like  a  variable. * 

1304  PRINT'  answer  C  has  an  illegal  BASIC  word  (output)  and' 

1804  PRINT"  answer  0  uses  the  wrong  characters  for  quotes.* 

1810  °RINT"  review  part  1,  PRINT,  and  part  2,  String  Variables* 

1320  SOTO  1350 
1330  PRINT-CORRECT* 

1340  3!3!  =  1 
1350  PRINT 

1340  INPUT'press  ENTER': Tl 


79 


*****  Listing  of  Prograe  ’ TEST  1  ’  ***** 


07/10/83  -  02:17:03 


1970  G03U8  4130 

1380  PRINPMhat  would  the  following  programs  output  he-1* 

1890  PRINT 

1900  PRINT  *  10  X  =  30RM;  * 

1910  PR!NT'20  PRINT  I'V 
1920  PRINT "RUN* 

1930  PRINT 

1940  INPUT'Type  in  your  answer  and  press  ENTER1: Tt 
1930  PRINT 

1940  IF  It  =  '25'  THEN  SOTO  2000 

1970  PRINT  'NRONS  -  the  correct  answer  is  25' 

1972  PRINT"  line  10  puts  the  square  root  of  4  into  the' 

1974  PRINT'  variable  t,  line  20  causes  5  to  be  taken  to' 

197s  PRINT'  the  power  of  2.  5  squared  is  25.' 

1980  PRINT'  review  part  1.  PRINT,  and  part  2.  FUNCTIONS* 

1990  SOTO  2020 
2000  PRINT'CORRECT' 

2010  0(4)  =  1 
2020  PRINT 

2030  INP'JT'press  ENTER’? T» 

2040  SOSUS  4130 

2030  PRlNT’Swe  the  necessary  statement  to  print  a  blank  line.  Use" 

2050  PRINT'line  nuaber  10  and  leave  one  blank  space  between  teres." 

20’ 0  PRINT 

2080  INPUT'ilhat's  your  answer1;!! 

2090  PRINT 

2100  IF  T!  =  MO  PRINT'  THEN  SOTO  2140 

2110  PRINT’NRONG  -  the  correct  answer  is  10  PRINT1 

2120  PRINT"  review  part  I,  PRINT1 

2130  SOTO  2140 

2140  PRINT'CORRECT1 

2130  fl(3l  -  1 

2150  PRINT 

2170  INPUT’press  ENTER1 *  T* 

2130  SOSUB  4130 

2190  PRINT'The  two  t/pes  of  FUNCTIONS  are  LIBRARY  and  COMPUTER,  TRUE  or1 
2200  PRINT 'FALSE’' 

2210  PRINT 

2220  PRINT'fl  TRUE' 

2230  PRINT'S  FftlSE* 

2240  PRINT 

2250  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER' ; T* 
2250  PRINT 

2270  IF  Tl  *  'S'  THEN  SOTO  2330 

2280  PRINT'NRONS  -  the  correct  answer  is  B  (False)  -  the  two  types" 

2290  °RINT “  of  functions  are  LIBRARY  and  USER.  Review  part1 


8i 


*****  Listing  of  Prograa  ’TEST!’  mu 


07/10/33  -  02 


2300  PRINT1  2,  FUNCTIONS.1 

2310  PRINT 

2320  6010  2350 

2330  PRINT'CORRECT1 

2340  9(6)  =  1 

2350  PRINT 

2360  INPUT'press  ENTER* » Tt 
2370  SQSUB  4130 

2330  PRINT'Nhich  of  the  Following  stateaents  is  invalid''1 
2390  PRINT 

2400  PRINT**  25  =  V 
2410  PRINT’S  PRINT  S0R125I* 

2420  PRINT'C  PRINT  25**10* 

2430  PRINT'D  L  -  N*N* 

2440  PRINT 

2450  INPUT'T/pe  in  the  letter  opposite  the  INCORRECT  statesent'iTI 
2460  PRINT 

2470  IF  T1  =  *A*  THEN  SOTO  2510 

2430  PRINT'NP.QNS  -  the  INCORRECT  stateaent  is  *  (25  =  II* 

2432  PRINT"  Von  cannot  set  a  constant  (25!  equal  to  a  variable* 

2490  PRINT1  review  part  1,  PRINT,  part  2,  FUNCTIONS* 

2500  SOTO  2530 
2510  PRINT'CORRECT1 
2520  0(7)  =  1 
2530  PRINT 

2540  INPUT'press  ENTER1!!! 

2550  SQSU8  4130 

2560  PRINT'S  string  variable  is  lade  of  aatheaatscal  equations  which1 
2570  PRINT'will  be  aanioulsted  tv  the  coaputer  and  saved  in  temporary* 
2530  PRINT'ieaorv.  "RUE  or  FALSE'’1 
2590  PRINT 

2600  INPUT 1  Type  in  TRUE  or  type  in  FALSE  for  this  stateaent'lT! 

2610  PRINT 

2a20  IF  T!  -  ’FALSE1  THEN  5QT0  2670 
2630  PRINT-WRONG  -  the  answer  is  FALSE* 

2640  PRINT*  strings  are  not  used  for  aanipulating  »ath* 

2650  PRINT’  equations.  Review  part  2,  Strings.* 

2660  SOTO  2690 
2670  PRINT'CORRECT* 

2630  3(8)  =  1 
2o9Q  PRINT 

2700  INPUT'press  ENTER*;  T$ 

2710  SOSUB  4130 

2720  PRINT'Nhich  of  the  following  is  an  evaaple  of  a  peripheral  device7* 

2730  PRINT 

2740  PRINT'S  CPU* 
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2750  PRINT'S  NEMOS'/' 

2760  PRiNT'C  KEYBOARD* 

2770  PRINT 

2780  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER’ ; T$ 
2790  PRINT 

2300  IF  T$  s  'C'  THEN  GOTO  2840 

2810  PRlNT'kiRQNS  -  the  correct  answer  is  C  (keyboard)* 

2812  PRINT"  Answers  A  l  8  are  not  peripherals,  they  are" 

2814  PRINT*  part  of  the  main  computer  structure. " 

2820  PRINT"  re view  part  1,  General  Information' 

2330  SOTO  2860 
2840  PRINT'CORRECT* 

2350  819)  =  1 
2360  PRINT 

2370  INPUT'press  ENTER'? TS 
2330  SOSUB  4130 

2390  PRINT'If  you  had  the  following  program  in  meacryi' 

2900  PRINT 

2910  PRINT'10  G-34" 

2920  PRINT*20  1=40" 

2930  PRINT-30  Y=10* 

2940  PRINT'40  L=3' 

2950  PRINT 

2960  PRINT 'Whit  statement  would  you  use  to  remove  the  middle  two  lines!” 

2970  PRINT 

2930  PRINT'S  NEW 

2990  PRINT'B  PRINT  10  ‘  40* 

3000  PRINT'C  DELETE  20  to  30* 

3010  PRINT'D  DELETE  20-30* 

3020  PRINT 

3030  INPUT'press  the  letter  opposite  the  correct  answer  and  press  ENTER’ ? T$ 
3040  PRINT 

3050  IF  Tl  =  '0"  THEN  SOTO  3090 

3060  PRINT'NRONS  -  the  correct  answer  is  D  (DELETE  20-30)' 

3062  PRINT'  Answer  A  would  delete  the  whole  program,  and* 

3064  PRINT'  answer  3  prints  the  sum  of  10  and  40.  Answer  C* 

3066  PRINT'  would  cause  a  syntax  error.' 

3070  PRINT'  review  part  1,  IMMEDIATE.  NEN,  DELETE* 

3030  SOTO  3110 
3090  PRINT'CORRECT’ 

3100  8(10)  =  1 
3110  PRINT 

3120  INPUT'press  ENTER* ? H 
3130  SOSUB  4130 
3140  FOR  4  =  I  TO  10 
3150  Y  =  Y*Q(I| 
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3140  NEXT  It 

3170  PRINT'You  have  finishes  the  test,  out  of  10  possible  correct  answers" 
3180  PRINT'you  scored  *Y*.* 

3190  PRINT 

3200  IF  Y  >  4  THEN  PRINT’YOU  HAVE  PASSED’ 

3210  SOSUB  3950 

3220  IF  Y  >  4  THEN  GOTO  3300 

3230  PRINT’YOU  HAVE  NOT  RECEIVED  ENOUGH  POINTS  TO  PASS’ 

3240  PRINT 

3250  PRINT’YOU  SHOULD  RETAKE  LESSON  1  BEFORE  G0IN6  FARTHER1’ 

3260  PRINT 

3270  PRINT’You  will  be  returned  to  the  Nenu.’ 

3280  PRINT 
3290  SOTO  4170 
3300  PRINT 

3310  PRINT’Do  you  want  your  score  recorded  on  a  pertinent  file?' 

3320  PRINT 
3330  PRINT "A  YES’ 

3340  PRINT’S  NO’ 

3350  PRINT 

3340  INPUT’HhiCh’tTt 

3370  IF  Tt  =  ’9"  THEN  SOTO  3640 

3380  SOSUB  4130 

3390  PRINT’To  record  your  score,  we  aust  open  a  file  and  put  your  nate“ 

3400  PRINT’m  it.  Therefure.  surprisingly,  we  need  your  nate.  If  vour’ 
3410  PRINT’nate  is  not  unique  atonq  the  students  likely  to  take  this  test,* 
3420  PRINT’please  contact  your  test  tomtor  for  a.n  identifying  word  that’ 
3430  PRINT’will  take  you  unique.  Then  enter  that  word  below.’ 

3410  FPINT 

3450  FRINT’If  you  ha*e  already  entered  a  score  previously,  be  sure  to’ 

3460  PRINT’erter  the  sa*e  rate  you  used  before,  luse  all  capitals;’ 

3470  CR!NT 

3430  INPtlT’EN'ER  vour  word  or  rate  now’iTI 
34«0  OPEN’ I’.l. ’SCORE!’ 

3500  1  =  0 

3510  IF  EOF!’!  THEN  30T0  3-570 
3530  t  =  !♦! 

3530  INFUTll.NI't) 

3540  INPUT#!. S'  V 

335C  IF  Hi  X)  -  TS  THEN  SOTO  3810 

3540  SOTO  3510 

3570  CLOSE 

356u  !  =  <M 

3590  Nl'il  =  Tt 

3400  SU)  =  Y 

3i!0  OPEN’D’. 1,’SCCREl* 
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3420  FOR  ti  =  1  TO  X 
3430  PRINTil.MW) 

3440  PRINTtl,S(i#> 

3450  NEXT  N 
3440  SOSOS  4130 

3470  PRINT ’ rau  are  new  qualified  to  go  to  LESSON  2.* 
3430  PRINT 


3490  PRINT“Your  hoiework  assigneent  i s:  “ 

3700  PRINT 

3710  PRINT'Nnte  a  short  prograe  that  will  state  the  following  when  RUN:* 
3712  PRINT 

3720  PRINT'THE  SUN  OF  3,  2,  MB  22  IS * 

3730  PR1NT”27” 

3732  PRINT 
3740  PRINT 

3742  PRINT'Make  the  second  stateeent  t’27'1  actually  calculate  the" 

3744  PRINT’sue  of  3.  2,  and  22.  -  similar  to  the  enaaole  at  the* 

3744  PRINT'end  of  the  last  part  of  lesson  1.  Final ly .  print  two" 

3748  PRINT’blank  lines  at  the  end  of  the  progra*.1 

3~50  PRINT’Be  sure  to  cosy  this  instruction  down  before  you  go  on.” 

7800  GOTO  4170 
3910  SIX!  =  Y 

3320  IP  EOF! I!  THEN  CLOSE: GOTO  3840 
3833  X  =  U1 

3840  INPUT#!.  N*U),  SIX) 

3350  SOTO  3320 
3840  OPEN'D”,  1.  -  SCORE  1* 

7S70  FOR  H  -  1  TO  X 
3380  PR!NT#1. N#(N> 

3390  PRINTII.SIN) 

3900  NEXT  N 
3910  PRINT 

3920  PRINT'fou  tav  now  take  LESSON  2.  You  will  he  returned  to  the  MENU* 
3930  PRlNT’frae  where  vou  ia«  go  to  LESSON  2  cr  quit.* 

3940  SOTO  4170 

3950  IF  ¥=10  THEN  RETURN 

3940  PRINT’YOU  NEED  IltPRC/ENENT  IN  THE  FOLLOW  INS  AREAS:* 


3970  PRINT 

3930  19  3(1)  -  0  THEN  PRINT”  part  1,  Hardware  anO  Software" 

3990  IF  9(2)  =  0  OR  8(41  =  0  OR  0(4!  =  0  THEN  PRINT”  part  2.  Functions” 

4000  IF  9(3!  =  0  THEN  PRINT"  part  l,  Print,  and  part  2,  String  Variables* 

4010  IF  8(5!  =  0  THEN  PRINT”  part  1.  Print” 

4021  IF  9(7)  =  0  THEN  PRINT"  part  2,  Variables* 

4030  IF  8(3)  =  0  THEN  PRINT”  oart  2,  String  Variables* 

4040  IP  9'9>  =  0  THEN  PRINT”  part  1.  Senera!  Information" 

4050  IF  3(10)  =  0  THEN  PRINT”  5art  I,  IIWEB1ATE* 


j 

l 

] 
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*»m  Listing  of  Froqraa  'TEST!’  »*♦** 


4040  PRINT 

4070  INP'JT'press  ENTER* :  T s 
4030  SOS'JB  4130 
4090  RETURN 
4100  PEN  « 

41D  SEN  tf  this  subroutine  clears  the  screen" 
4120  REN  ** 

4130  FQR  X  =  1  TO  24 
4140  PS  INI 
4150  NEXT  X 
4140  RETURN 
4170  PRINT 

4130  INP'JT’press  ENTER  to  return  to  NENU " ; T * 
4150  RUN’NENU" 

> 
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1000  REN  THIS  PR08SAN  STARTED  OH  20  APRIL  1983 
1010  REN  ♦♦  aUTHGft:  CAPTAIN  OANNT  J.  CRESSAN 
1020  REN  ♦*  TITLE:  LESSEN  2 
1030  REN  *♦ 

1040  REN  ♦* 

1030  REN  ** 
lObO  PEN  ** 

1070  S3SU8  3120 

1)80  PRINT'LESSON:  BASIC  2  VERSION:  1  AUGUST  33 

1090  PRINT 

1100  PRINT-TINE  REQUIRED  TO  CONPLETE  LESSON:  About  One  Hour* 

1110  PRINT 
1120  PRINT 

1130  PRINT'AUTHGfi:  Cant  Danny  J.  Creagan* 

1140  PRINT'  Air  Force  Institute  cf  Technology* 

1150  PRINT 

1160  PRINT  ‘OBJECTIVE:  To  teach  the  student  about  permanent  storage. ‘ 

1170  6R1NT“  ho*  to  handle  data  in  BASIC,  and  ho*  to  branch  to* 

1130  PRINT*  different  parts  of  a  prograa.” 

1190  PRINT 
1200  PRINT 
1210  PRINT 
1220  PRINT 

1230  INPUT'oress  the  ENTER  kev  to  continue*:!! 

1240  SOSL’8  3120 
1250  SOSUB  31 60 

;2a)  PR  I  NT “A  ['*  taping  this  cart  m  its  entirety. * 

1270  PRINT'S  I  *ish  to  revie*  selected  areas. * 

1230  PRINT'S  I  *ant  to  go  to  the  second  part.* 

1290  PRINT'D  I  want  to  return  to  the  Nenu." 

1300  CRINT 

1310  INPli*'Press  eitr-  caoital  A,  8 ,  C,  or  D  and  then  press  ENTEP’tTi 

1320  IP  T$  s  *D"  P  .  jM 

1330  IF  T*  =  *C“  60(0  3370 

1340  IF  T$  =  *8*  GOTO  1430 

1310  IF  it  ( > *A“  SOTO  1260 

1360  SOSUB  1540 

1370  SOSUB  1950 

1330  SOSUB  3370 

139)  SOSUB  5000 

1400  SOSUB  5670 

141)  SOSUB  9120 

1420  GOTO  3370 

1430  SOSUB  9120 

1440  S0SU8  81 60 

1450  PRINT 
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1460  PRINT *P1 ease  tvpe  in  the  nuioer  aeside  the  area  »ou  wish' 

1470  PRINT’ta  review  .1  through  5>  ar.d  then  areas  ENTER  -  press  0  and* 

1480  PRINT’press  ENTER  tc  return  to  the  flenu.* 

M?0  PRINT 

1300  INPUT'Hhat  is  vour  chaice'iN 

1310  IF  N  =  0  GOTO  3360 

:s:0  ON  !i  SQSUB  1540, 1950.3370.5000.5670 

1330  5010  1430 

.340  8QSUS  3120 

1330  JNP'JT'Do  you  wish  ta  see  an  answer  to  the  hoiework  problei  •  Y / N 1 " : T $ 

!3a0  IF  LEFTKTt,  1)  =  *N*  OR  LEFTMTS,!)  =  V  THEN  SOTO  1660 
1370  30SU9  8110 

1380  FRINT’Here  is  one  possible  wav  to  coiplete  your  hoiework:* 

1390  PRINT 

1600  PRINT'IO  FRINT“CHR*(34) "THE  SON  OF  3,  2,  AND  22  I3*CHR$(34> 

1610  PRINT*20  PRINT  3  ♦  2  *  22* 

1620  PRINT-30  PRINT* 

[622  PRiNTMO  PRINT" 
lo23  FRINT'-JN* 

1624  PRINT'THE  SDH  OF  3.  2,  AND  22  IS* 

1625  PRINT-27* 

1626  PRINT 
1630  PRINT 

U40  INPUT* You  can  trv  this  one  if  you  had  trouble  with  yours.  Press  ENTER" : T * 
1630  IS  =  ** 

1660  SQSUB  3120 

1670  PRINT"  Introduction* 

1680  °RINT 

1690  PRINT  *ln  this  lesson  we  will  cover  sese  of  the  lost  exciting  and* 
l'OO  PRINT  "useful  conar.ds  in  the  BASIC  language.  Nhen  we  left  off,* 

1710  PRINT  "in  lesson  I,  we  had  discussed  sc»e  of  the  fundaiental  coiiands’ 
riO  PRINT  ’that  you  lust  use  just  to  get  BASIC  started.  Now,  we  will" 

[730  PRINT  ’discover  how  to  SAVE  our  prograis  for  future  use,  how  to* 

!74S  PRINT ‘control  data  input  in  our  pragrai,  and  how  to  leave  little* 

1T50  PRINT'sessages  m  our  pragrai  sa  that  other  prograiiers  can  under-* 

1760  PRINT “ stand  wh„  we  are  trying  to  do.  Host  liportantlv,  we  will* 

1770  PRINT’discover  now  to  branch  to  different  sarts  of  a  orograi" 

!'30  PRINT’depending  on  our  data  sanipulanon  reauireients.  That  wav,  one* 

P9(j  PRINT'prograi  can  be  extreselv  flexible  and  do  *anv  different  finds" 

1300  cRINT’af  work  tor  us.« 

1810  PRINT 

1320  INPUT’press  ENTER  ta  continue*:!* 

1330  SQSUB  3120 

l34->  PRINT*  Introduction* 

1330  PRINT 

I860  PRINT'After  taking  this  lessor,  we  reconend  >nu  practice  sole  of  the’ 
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1870  PRINT*tschni oues  vou  have  learned.  The  best  nay  is  to  ante  a" 

1380  PRINT’snort  crogra*  of  your  own  and  get  it  working.  Then  get  a* 

1390  PRINT'short  progra#  fro«  a  eagazine  or  book  and  type  it  in.  Don’t" 
1900  PRINT"be  afraid  to  sxperieent  with  it.  The  best  way  of  learning'1 
1910  PRINT-BASIC  is  to  practice  it." 

1920  PRINT 

1930  INPUT'press  ENTER" ; Tt 
1940  RETURN 
1930  SOSUB  8120 

1950  PRINT"  Filenaees" 

1970  PRINT 

1980  F'RINT’Reeeaber,  in  lesson  1,  when  we  discovered  how  to  sake  prograes* 
1990  PRINT'that  could  be  RUN  over  and  over’’  He  said  then  that  the  pro-" 
2000  PRINT'gra*  was  stored  in  TEMPORARY  *e»orv.  If  you  tried  a  few  of" 
2010  PRiNT'the  exasples  that  were  given,  you  will  have  noticed  that  the" 
2020  ?fiINT“progra«  was  destroyed  whenever  you  left  BASIC.  This  section" 

2030  PRINT'and  the  next  section  will  show  you  how  to  SAVE  a  prograe,  and" 

204?  PRINFthen  cal!  it  Sad;  fros  PERMANENT  storage.  That  way,  when  " 

2050  PRINT'vou’ve  spent  hours  asking  the  best  data  eanager  ever  written," 

2050  c'RINT"ycu  won’t  have  to  re-write  it  when  you  turn  on  the  aachine" 

2070  PRINT’agam1 " 

2.30  PRINT 

2090  PR  I NT "PERMANENT  storage  is  the  wav  we  store  data  for  an  indefinite" 
2100  PRINT'oenod.  Ne  usually  use  DISKS  or  TAPE  for  PERMANENT  storage." 
2110  INPUT'press  ENTER"? TS 
2120  SDSUS  3110 

2130  PRINT"  Filenaees  IcoRt)" 

2140  PRINT 

2150  PRINT *Fcr  the  purposes  of  this  lesson,  we  will  assuee  you  only  use’ 
2150  ?RINT“31SKS  for  peraanent  storage." 

2170  PRINT 

2180  PRINT'A  DISK  15  a  platter  of  iron-oxide  coated  aaterial  that  stores" 
2190  PRINT'data  aleost  the  sa«e  wav  that  an  audio  tape  stores  *us:c." 

2200  PRINT'A  DISK  coees  in  »snv  sices  and  with  *any  different  storage" 

2210  PRlNT“capabilities.  Fortunately,  the  way  we  store  data  on  disk  when" 
2220  PRINT'we  are  using  Microsoft  SASIC  is  standardized  for  aleost  all" 
2230  PRINT’installations.  'there  is  a  slight  difference  if  you  are  using" 
2240  PRINT'a  TRS-30,  we  will  explain  it  as  we  go  along)” 

2250  °R!NT 

22a)  INPUT'press  ENTER" ? T t 
2270  SOSUB  3120 

2280  PRINT"  Filenames  (cant) " 

2290  PRINT 

2300  PRINT'Nhat  haopens  when  vou  store  data?  Nell,  the  computer  takes" 
2310  PRINT'care  of  eost  of  the  details,  it  waits  until  you  tell  it  to" 

2320  PRINr'store  a  orcgrae,  then  it  searches  the  available  storage  areas' 
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2330  PRINT'tc  see  if  there  is  roci  for  storage  of  your  easterpiece,  then.1 
2340  PRINT"! t  antes  your  data  on  the  DISK.  Seeeeber,  there  eay  be  MANY" 
2350  PRINT’prograss  stored  on  a  d/ski  therefore,  each  progra*  lust  have" 
2360  PRINT"a  label  that  distinguishes  it  fro*  the  others.  That  way,  the* 
2370  PRINT’coiputer  can  find  your  progra*  when  you  ask  for  it  again.* 

2330  PRINT 

2390  INPUT’press  ENTER"; T$ 

2400  G03U8  3120 

2410  PRINT*  Filenaees  (cont)* 

2420  PRINT 

2430  PRINT’This  label  is  called  a  FILENAME.  FILENAMES  are  very  strictly* 
2440  PR!NT*controlled  by  the  cotputer.  They  *ust  follow  the  fallowing* 

2450  PSlNT’fonat  EXACTLY. • 

2460  PRINT 

2470  PRINT"  TRS-80  CROMEHCQ  (or  CPM* 

2480  PRINT 

2490  PRINT*  (filena*e//(extension)  ffilena»e;. (extension!* 

2300  PRINT 

2310  PRINT'Notice  that  the  onlv  difference  between  a  TRS-80  and  Cro»e*co" 
2520  PRINT'is  that  the  TRS-30  has  a  slash,  between  the  filenaee* 

2530  PRINI’and  the  extension,  while  the  Cro*eeco  has  a  period  or  dot, 

2540  PRINT 

2350  INPUT'press  ENTER*; Tl 
2560  6QSUB  3120 

2570  PRINT"  Filenaies  (cont)* 

2330  PRINT 

2590  PRINT*  TRS-80  CROMEMCO* 

2600  PRINT 

2610  PRINT"(fi!ena*e)/(extensionl  (filenaeel . (extension) * 

2620  FRINT 

2630  PRINT' In  the  two  exa«ples.  (filename),  is  an  alphabetical  character” 
2640  PRINT’stnng  no  longer  than  eight  (8!  characters,  (extension)  is  * 

2630  PRINT'a  file  extension  na*e  that  is  also  an  alphabetical  character' 
2660  PRIMT'stnng.  The  extension  sust  not  be  longer  than  three  (3)" 

267)  PRINT'characters.  The  extension  is  OPTIONAL  but,  it  used,  *ust" 

2o80  PRINT’follow  the  foreat  EXACTLY.  NUM9ERS  eav  be  used  in  both  " 

2690  PRINT"filenaaes  and  extensions,  but  they  *ust  NOT  be  the  FIRST  letter" 
2700  PRINT 

2'10  INPUT’press  ENTER*: Tt 
2720  S3SU8  3120 

2730  PRINT*  FiJena»es  (cont)’ 

2740  PRINT*Here  are  soie  exa*ples  of  legal  filenaies  for  vour  cotputer” 

2730  PRINT 

27o0  PRINT'  HYPROS'BAS  MYPRQS.3AS" 

2770  PRINT"  MRHAPPY/BAS  NRHAPPY.BAS* 

2"30  PRINT"  SHIRF1N2/BAS  SNIMFIN* 
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2790  PRINT'  GOODNESS  GOODNESS. BPS' 

2300  PRINT 

2310  PRINT'Notice  that  the  filenaaes  do  not  have  to  take  sense,  just  so' 
2820  PRINT 'they  sean  sosething  to  the  progra»«er  aha  tade  the*,  lit" 

2930  PRINT'would  he  unwise  to  naee  your  program  soiethmg  coieon,* 

2840  PRlNT'like  TEST.9AS,  because  soeeone  else  has  probably  already  used" 
2350  PRlNT'that  naee.  If  they  have,  you  will  destroy  their  progra#  when" 
2360  PRINT'you  SAVE  your  progra*  to  disk.  Each  progra*  na*e  *ust  be' 

2370  PRINT'unique.*  ' 

2380  INPUT “pres 5  ENTER'iTt 
2390  SOS'JB  3120 

2900  PRINT'  Filenases  (cont)' 

2910  PRINT 

2920  PRINT'  StUHFlN.BAS* 

2930  PRINT 

2940  PRINT'Notice,  in  the  above  filename,  the  extension  is  BAS.  This' 

2950  PRINT'would  nor«ally  indicate  that  the  file  is  a  BASIC  file  (you  " 

2960  PRINT"«av  have  word  processor  files,  tachine  language  files,  or' 

2970  PRINT'a  variety  of  others).  A  good  tip  15  to  always  save  your' 

2980  PRINT'BASIC  files  with  this  extension.  That  wav,  when  you  read” 

2990  PRINT’the  disk  directory,  vou  can  tell  that  you  nave  to  go  to  BASIC 
3000  PRINT’to  'un  any  progra*  that  has  the  extension  -  .BAS.” 

3010  PRINT 

3020  INPUT'oress  ENTER* :T I 
3030  S0SU6  3120 

3040  PRINT"  Filena»es  (cont 1 " 

3050  PRINT 

3060  PRINT’This  section  is  very  lapcrtant  to  vou.  It  has  shown  vou  what" 
3070  PRINT'filenases  are  and  wnat  legal  filenases  look  like.  In  the" 

3030  PRINT'future  vou  will  use  then  a  lot.  Be  sure  you  under-” 

3090  PRINT'stand  the  idea  behind  filenases  before  you  continue.  It” 

3100  PRINT’would  be  3  good  idea  to  look  the*  jp  in  your  operating" 

3110  PRINT 'manual  for  Nicrosoft  BASIC.  There  are  »any  rules  that  were  not" 
3120  RRINT'ccverec  here,  out  the  rules  we  covered  will  get  vou  bv  ;cr  now.” 
3130  PRINT 

3140  INPUT'press  ENTER ’Cl 
3150  SOS'JB  3120 

3160  INPUT-ENTER  a  T  if  using  a  TRS-iG.  or  T  if  CFN  or  CFONEflCQ'iTJ 
3‘TC  IF  T*  =  *T*  GOTO  3540 

:;30  sosub  si:) 

3190  PFINT'In  the  Croseaco  s<stes.  which  of  the  ‘oilowmg  would  be' 

3200  6S!.VT'ccnsid«red  a  lesal  f.I enase. ' 

"111  -RIST 

3220  -RINT'A  nxmu.r  1L' 

TZ3C  PF!N*"B  ZRIssson.BAS” 

T2: )  RRWT’2  TE3T-SAS" 


*****  Listiro  of  Prcsnt  ’LESSON:’  tm# 


07/10/83  -  00:01:18 


::so  print-c  l’jkchtalk’ 

3260  PRINT 

3:70  INPUT'press  the  letter  Booosite  the  correct  answer  and  press  ENTER'; Tt 
i:SC  IF  T*  *  'A"  GOTO  3330 
3290  PRINT 

3300  PRINT'iiF.CNG  tne  correct  answer  is  A  tmmn.FIL!* 

3310  PRINT 
3320  SOTS  3350 

3330  PR  I  NT"  CORRECT  -  good  job" 

3340  PRINT 

3350  INPUT'oress  ENTER'; 7* 

3360  SOSOS  3120 

3370  PRINT'Is  the  extension  necessarv  for  a  filenaae  to  be  legal'’" 

3380  PRINT 
3390  PRINT* A  YES' 

3400  PRINT'S  NO" 

3410  PRINT 

3420  INPUT'press  the  letter  opposite  the  correct  answer  and  Dress  ENTtR'!'* 
3430  PRINT 

*44)  IF  T*  =  “B“  GOTO  3470 

3450  PRiNT“NRQH3  -  the  correct  answer  is  S  ’.the  extension  is  not  needed!' 
3460  SOTO  3480 
3470  PRINT-CORRECT* 

3430  PRINT 

3490  INPUT'press  ENTER*; T* 

3500  S0SU6  3120 

35 1 u  5QSUS  3270 

3520  IF  T*  *  *S*  33TC  1550 

3530  RETURN 

3540  503 US  3120 

3550  PPlhT'Which  of  the  following  fi senates  is  correct" 

35aO  PRINT 

3:70  PRINT'S  v<mm,BAS* 

3530  PRINT’S  24Iesson.3AS* 

3590  P5!NT’C  TE3T-3AS" 

3s 00  PRINT'S  UHCHT4U' 

:>:o  print 

3620  INPUT'press  the  letter  opposite  the  cor-ect  answer  ano  oress  ENTER* ; T * 
3630  PRINT 

3640  IF  '5  =  ’A"  3373  3670 

36:0  PRINT’NPONG  the  correct  answer  is  A 

3660  5CT2  3s30 

1RINT,C0RREC3" 

3:3?  PRINT 

3s9o  INPUT’press  ENTER*:!* 

27  >0  E03UB  2 i 2  * 


9! 


*****  Listing  of  Prograa  ’LESSGN2’  ***** 


07/10/33  -  oo:o::!3 


371!:  PRINT “An  extension  to  a  filenaie  is  laudatory. 4 

3720  PRINT 

3730  PRINT'A  YES" 

3740  PRINT'S  NO" 

3 7 SC  PRINT 

37-SO  ISPUT'sress  toe  letter  oooosite  the  correct  answer  and  press  ENTER".!* 
3770  PRINT 

3730  IF  !$  =  “S’1  GOTO  3310 

3790  PRINT "NRGNS  -  the  correct  answer  is  &  ian  extension  is  not  r.eeaed ) “ 
3300  GOTO  3830 
33 if  PRINT-CORRECT' 

332)  PRINT 

383C  INPUT 'press  ENTER* 5  T S 

3340  3CSU3  3270 

335')  IF  Tl  -  'S’  30 TQ  1950 

33sO  RETURN 

727  :'  62222  3120 

333'.  PRINT'1  5«v£.  LOAD  and  RUN" 

3390  FO.’M 

3970  :RiNT*rt  the  iecmninq  a*  the  last  section,  *e  said  *e  would  oisccver" 
3;’u  PRlNT'hCi*  to  3.- /£  our  Dfoarais  so  we  wouldn't  have  to  keen  typing* 

392  )  PRINT 'then  n  aii  the  tine.  Jell,  this  is  it.  To  SAVE  your  orograa/ 

7-30  *RI>tT* '.let’s  a<  <cu  tailed  it  * i r,R0G . BAS ) .  all  vgu  do  is:" 

394)  PRINT 

3950  :'R.',T“  I!  Type  jn  the  prograa' 

3«a7  PRINT"  3'  Type  SAVE  *CHftl ;34) 'RrPROS. 8AS*£HP*;34) 

3’"  :'F.INT"  3/  Ccnaratulate  .air  self  on  a  good  ieb'* 

7'5S'.  PRINT 

95INT"?e  sure  to  notice  that  the  filename  is  enclosed  dotation' 

4  72  3  PRINT "ians.  That  is  aand-’tor-. ,  if  <ou  don’t  enclose  tr.e  case  in* 

40:)  PRINT'cuctes,  the  coaaand  will  ’ECUS'  lit  will  tail:." 

43::  -FTNi 

4  73)  IfIPUT’sress  EN'ERTf 
4240  SDSLS  El 20 

4)50  PRINT"  SAVE.  LOAD,  and  RUN  icor.tl" 

i'.a:  CR!NT 

4070  PRINT *Th*re  iTi  other  things  >cu  should  Se  aware  of  before  vou  tr»* 


4,30  PRINT'to  SAVE  a  orograa.  First,  there  should  be  enough  roos  on  the" 
4,9')  FP IhT’aisP  to  hoi:  tae  cragraa.  if  -ou  are  using  a  CROHEIICC  hard" 

4 1 0 )  RRIVdiSr.  vou  probabl <  not  have  any  trebles  in  this  area.  ASK* 
411.)  PBINT’YCUP  3/STES  CFERATQR  for  lore  irforaation.  If  ,ou  are  using* 
412)  :iINT*TRS-30  saai:  -lzin  dist.  then  go  to  the  CC”!*ANC  node  3/’ 


3!NT't.oi-o 


C It 0 '' CNF: $ ;  34 1  * 3 " CHR 5 : 3 4 : "  and  then 


4)4  --PIT'CIR  :l. 


17ec  :0  arc  drive  2  is  called  : 1 


4152  C9TNT* 


.a*,  .cu  w:l.  see  the  free  scace 


.*  .ou  na»e  :>er" 


07.' 


►**»♦  .istir.c  of  frogra*  ’ LES33N2’  ***** 

4  TO  :R7.‘«T''30  grar.s.  then  >ou  h«*e  enough  rocs  for  a! test  any  srccraa. 
-RINT’sEE  rCLR  OPERATING  HANUAO  FOP  SORE  DETAILS." 


pojwt 

4i:0  INPUT'aress  ENTER":  T» 
ill  -  SGSU8  31-": 

=K:.vr  save.  run.  and  ooab  icont)" 

^IN¬ 
IS4!'  PRINT •Seaer.cer.  if  you  have  enough  soace.  then  just  tvpe  n  this:' 
4ZS0  °r;s; 

4IsO  :RIN'  SAVE  *CHSI  :4l “nvPSCS.BAS-CHR*  :34|  •*  or  •■•'HRS'. 34 

■-  .  “PIN."  if  using  a  T P. S ~ c 0 ) 

4:s-j  :r:nt 


4Z'5'i  .sRINT-*tc»  that  «e  cron  no«  to  SAVE  a  progran.  ho*  do  we  get  it  fcac! 
Ov  PRINT'S:  we  can  RON  it  again'  That’s  ease.  Just  t.ae  in:* 

47/  “IN" 

4.::  PRINT’  RON"CHS$ ! 31!  'I1YRSC5. BAS'CHR J '•  34) 

4";  PRINT 

- 14.:  INF'jT’Dress  ENTER’! T $ 

4710  SOSL'B  s:lv 

43av  PRINT*  SAVE.  RUN.  and  .CAS  leant! * 

4370  PRINT 

4 3 ■PINT'’  RCN'CHM  1 34 ! ’KVPROS. SAS’CHR* <34 > 

4 7 PC  “PIT 

-Am  pRlNT'nhsn  /cu  toe  m  the  caaaar.fi,  tie  ccssuter  ml:  load  /cur’ 
4410  sRINT'eragraa  TRAT  v00  MAC  PREVIOUSLY  SAVES,  ar.fi  RON  it.' 

443j  cr:nt 

443v  PRINT'Nhat  if  .ou  just  sased  a  oiece  of  a  orograa  because  you  «ere 
44»C  RRINT’tireo.  etseetm:  t:  ecse  tact  at  a  later  date  anc  add  to  it’ 
-437  CSIN7*IP  vsj  did  that,  then  vou  wouldn't  nan:  to  PUN  the  orogras.’ 
4 4 ftC  -RINT’vou  would  just  want  to  LCAD  the  crcgras  anc  LIS’  it  to  ce' 
4i'I  :'R!N7 'sure  it  was  the  right  cr.e.  then  add  the  '.me  nusbers  »cu  nee; 
-’43)  :s.'N7't:  eojolete  the  progra*.’ 

^  ^  F  ■* 1  !i  T 

foCv  INPUT >sss  ENTER*:*! 

4! If  SuSjP  3120 

■17 .  :c:n'"  SAVE,  RON.  arc  L0A"  'ccr.tr' 

4330  PRINT 

■34  J  PRINT’Voj  would  OCA"  the  orooraa  using  the  saae  for  lit  as  for  SAVE; 
433;  PRINT-arfi  E’JNsng  it.  That  is:’ 

43eC  PRINT 

*rc  P«IN!’  03AD“CHR*<74!*HY?RC5.8AS"(;HR*i34! 

4333  PRINT 

4397  PRINT’BE  SUP;  TC  SAVE  THE  °?CSRAH  ASA IN  fir  TER  YOU  K0DIF>  IT.  BECAU! 
4-i00  PR  I  NT  “ONLY  A  COPY  OF  THE  OLD  VERSION  410L  BE  ON  THE  DISr* 

4s  10  PRINT 

4:30  INPUT  "oreea  ENTER": Tl 


*****  listing  of  Prcara*  'LE5SQN2’  ***** 


07/10.82  -  00:  M:  IB 


GGSUB  312C 

FRINT'wtiicn  si  the  *3lia«:s5  is  the  correct  ceasing  to  SAVE  a* 
“StXT'srasrM  naaeg  FRITZ-** 

PSI.VT 

PRINT'A  SAVE  fF.IT'” 

FAINT’S  LOAD  FRITZ. SAS” 

PRINT’S  SAVE  *>°R0S‘ 

PR INT’D  SAVE  *SHR * ( 34 ' “ F RI T I  *  SHFS ! 34 • 
t'PINT 

i.NPUT'grsss  the  letter  egpcstte  toe  csrrect  wisaer  and  dress  ENTER** ; T s 
PRINT 

IF  TS  =  ”D”  SGT3  4770 

PRINT”SRCNG  -  the  correct  ansae-  is  3  v£AV£*CHf:*t34» ’FRIIT'CHR* .34» -)' 
GOTO  47S0 

FRINT'SORPECT  -  FRITZ  thanks  vou"* 

PRINT 

INPUT'oress  ENTER”: Tl 
SOSOS  3120 

PRINT'Ycu  ha,e  ;ust  gotten  to  BASIS  and  »ant  to  loan  a  orocrsa  vou” 
PRINT'have  been  aorking  on.  The  filenaae  for  the  progra*  is  SQUEEZE." 
RRINT’Hoa  «ould  vou  get  the  procra*  fro*  permanent  storage  to  * 
P'RINT’teaoorarv  «e«or»*!  Which  of  the  foil  gam?  would  /ou  type  in:" 
PRINT 

CRINT”4  SQUEEZE* 

PRINT“5  .3AD  CHES '.34)  “SGUEEZE’CHRS  134 ; 

PRINT'S  LOAE'CHFS : 34 r SQUEEZE. BAj-SHR* iI4‘- 
PP:INT 

INPtlT"sress  the  letter  opposite  the  correct  ansae-  and  press  ENTER"! T$ 
PRINT 

IF  Tl  =  *6"  GOTO  4950 

PE Int “WRONG  -  the  correct  ar.saer  is  8  ‘ L QfiD " CHR t •. Z 4 ) " 3 3UEE I E r C H R « ; 1 4 : 
PRINT: GOTO  4940 

PRINT-CORRECT  -  gue  yourself  a  HUS' ‘•.PRINT 
i  INPUT'oress  ENTER**, TS 
GCSUB  32"0 

i  IF  TS  =  *3’  20TC  3370 

return 

1  G03UE  3120 

PRINT”  RERarts* 

PRINT 

PRINT  Scsethiinp  ae  should  start  early  m  our  programing  life,  is” 
°RlNT*DCCL'hENTATION  of  hoa  a  progra*  runs.  You  can  include  state-" 
PRINT 'meets  aithin  a  program  THAT  Will  NOT  3E  TOUCHED  SY  THE  CONFUTE.6* 
fRIT’ar-r  will  add  to  the  clarity  ct  vour  progra*.  That  aav.  when’ 
PFINf*v:-„  LIST  /our  orggra*  (or  when  another  orcgrae*er  does),  vou' 
cPIM’can  read  the  -eamders  left  behind  and  more  fuilr  understand" 


*****  Listing  of  Prograa  ’ LESSQN2 '  ***** 


07  ".0/33  -  00:01 


PRINT’the  arugraa.* 

5:00  FFINT 

5110  f'ft  1ST *Thc5e  siateaents  are  called  REN  stateaents  (RENark  stateaents:." 
5120  PRINT 

5130  INP'JT'oress  ENTER*; T$ 

5 MO  SCSI'S  8i:c 

5150  PRINT*  RENarks  <cont)‘ 

5 ISO  PRINT 

5170  PRINT'The  forsat  for  a  RSI  statesent  is  !l!N£  I)  REN  : RENARKS; ’ 

5130  PRINT 

5l°i  PRINT “An  esaacle  isl* 

5200  PRINT 

5210  PRINT".'!*  REN  This  is  non  a  RENark  stateaent  is  sade" 

5220  PRINT 

5230  PR’NT“«hen  the  coeputer  sees  REN  it  ignores  all  data  that  foiloas" 

5240  PRINT 

5250  INPUT 'press  ENTER" iTt 
5240  SQSUB  3120 

5270  PRINT “Here  is  an  esaaple  of  RENarks  in  a  prograa: * 

5280  PRINT 

5250  PRINT’S  R  =  2“ 

5300  PRINT’IO  REN  the  variasie  i  in  the  nest  line  is  aopros  equal  to  PI” 
5310  PRINT*20  X  *  3.M* 

5320  PRINT‘25  C  =  X*P**2‘ 

5230  PRINT*:;  PRINT  C* 

5340  PRINT-RUN” 

5350  PRINT 

53SO  RSINT'Nhich  Mould  oi»e:‘ 

5370  PRINT 
5330  PR!N'*12.s5" 

5310  PRINT 

5400  PRINT 'Notice  that  the  REN  stateaent  Mas  not  printed" 

5410  PRINT 

r  5420  INPUT'press  ENT5R-;TS 

\  5430  SOSUB  3120 

*  5440  PRINT" 10  PRINT  "£HRti34> 'SHEETUN3  is  av  girl . "CHRS'34! 

5450  PRINT "20  REN  "CHRI (34; "SNEETUNS  is  av  girl. ’CHRI134) 

5440  RRINT’30  PRINT  ’CHRJCAI "(he*  real  naee  is  CANDY) *C.HR»i34) 

54*0  PRINT-40  REN  "CHRS:34i'I  love  her"CHRI!34) 

5430  PRINT’RUN0 
5490  PRINT 

5500  PRINT  'The  shove  orcgraa  Mould  print  the  tail«ing  '.TRUE  ]R  FALSE!:" 

5510  PRINT 

5520  PRINT'SWEETUNS  is  »v  girl." 

553'*  P* INT": her  real  naee  is  S^NDi:" 

554U  PRINT 


*****  Listing  of  Program  ’LESSONS'  ***** 


07/10/33  -  00:0K13 


5550  INPUT’Tvpe  m  TRUE  or  FALSE,  whichever  is  correct"; T* 

5360  PRINT 

5570  IF  T«  =  "TRUE”  GOTO  5610 

5530  ?RINT"KRONG  -  the  correct  answer  is  TRUE  -  REN  statements  are  not’ 
5590  rRINT’prmted" 

5600  SOTO  5620 

5613  PRINT-CORRECT  -  good  job!" 

5620  PRINT 

5630  INPUT’oress  ENTER":!* 

5640  G0SU8  3270 

5650  IF  Tt  =  -8“  SOTO  5000 

5660  RETURN 

567C  SOSOS  3120 

5630  PRINT*  INPUT  Statements’ 

5690  PRINT 

5700  PRINT’Me  saw  in  the  First  lesson  that  SATA  can  be  assigned  to  a" 
5710  PRINT'variable  using  the  equals  sign.  Fer  example:* 

5720  PRINT 

5730  PRINT-10  I  =  10* 

5740  PRINT-20  PRINT  f 
5750  PRINT-RUN- 
5760  PRINT 

5"70  PRINT*6ives  us:" 

5730  PRINT 
5790  PRINT" 1C" 

5300  PRINT 

5510  PRINT" In  this  esamole,  we  assigned  10  to  i  in  line  number  10." 

5320  PRINT 

5330  INPUT ‘oress  ENTER" : T* 

5340  SOSUB  3120 

5350  PRINT”  INPUT  Statements  tcont) “ 

5360  PRINT 

5370  PRINT’ It  is  also  possible  to  assign  data  while  the  program  is  run-' 
5880  PRINT'nina'  THAT  13  HGN  THIS  PROGRAM  ASKS  fC'J  3UESTI0NS.  It  then1 
5390  PP.INT'tests  your  answer  to  see  iF  you  were  right.' 

5900  PRINT 


5910  PRINT'The  SASIC  word  that  it  uses  to  ask  the  question  is  called  an* 
5720  PRINT-INPUT  Statement.  It  loots  like  this:’ 

5930  FRINT 


5940  PRINT-10  INP'JT-CHRJ!34) -oress  the  correct  letter,  then  press  ENTE?."CHRI<34>-{T*- 


5«5C  PRINT 


5960  INP'JT’sress  ENTER" 5 T* 

5970  GCSUB  3120 

5930  PRINT'  INPUT  Statements  '.cont;" 

5990  PRINT 


6000  FRINT’ 10  INPUT "CHR* ( 34 )  'oress  the  correct 


letter,  then  oress  ENTER*  CNM  (34)  *;T$ 


96 


*****  Listma  of  Proqra.i  ’LESSQN2’  ***** 


07/10/83  -  00:0 


8010  “RINT'RUN" 

8020  PRINT 

8030  PRINT" 6i ves  as:' 
sC40  PRINT 

8050  PRINT 'oress  the  correct  letter,  then  press  ENTER’’* 

8080  PRINT 

8070  PRINT'Natice  that  a  question  aark  is  automatically  inserted  after  the* 
a030  PRINT'sessaqe  is  printed.  Nhen  the  question  is  answered,  the  letter* 
a090  PRlNT'that  the  student  selects  is  assigned  to  TS,  just  as  it  we* 

8100  PRINT'had  assigned  a  yalue  to  it  m  an  equals  stateaent.* 

8117  PRINT JA1  so  note  that  a  sesi-colon  is  placed  after  the  test" 

8120  PRINT 

si 30  INPUT "oress  ENTER* ;T$ 
a  1  - 0  GOSUB  3120 

8I2C  PRINT*  INPUT  Statements  (contl* 

8180  PRINT 

8170  PRINT’fere  is  another  esasolei* 
a  180  PRINT 

s 1 90  PRINT" 10  A  =  20* 

s 200  PRINT*20  INF‘JT*CHR$(34) 'Enter  a  nutter  between  I  and  ?*CHR$i34!";N 
8210  PRINT*30  C  =  A»N* 
s230  PRINT-RUN* 

8230  PRINT 

s24u  PRINT'Stses  us: " 

8250  PRINT'Enter  a  number  between  I  and  9'* 

8780  PRINT* 'if  we  ENTER  a  5  then)* 
a2’0  °RINT 

8290  ?r:nt*i:o* 

>290  PRINT 

8370  INPUT ’press  ENTER*; T$ 

8310  S3SU8  9120 

832'/  PRINT*  INPUT  Stateaents  lcont>* 

s330  PRINT 

8340  PR I NT  *  1 0  INPUT*CHR$!34) ’ENTER  a  nuiber  between  1  and  9*CHR4(34) *;N* 
8350  PRINT 

a38C  PRINT  “He  have  learned  then,  that  the  INPUT  statesent  allows  vou" 

8370  PRINT’to  ENTER  data  in  a  program  while  it  is  running.  It  does" 

8390  P6INT*this  bv  stopping  the  progra*  and  waiting  for  vou  to  enter* 

83R0  ?RINT*data.  Nhen  you  do,  it  sets  the  data  equal  to  the  variable" 

8*Cu  RRINT’on  the  end  cf  the  INPUT  statement.* 

8410  PRINT 

a 420  PRlNT’Between  the  lessage  or  prompt  and  the  variable," 
o43C  PRINT'  .'cu  mst  place  a  sen -colon  <  look  at  example  above'.* 

8440  PRINT 

c4S7  INPlT’aress  ENTER": T* 

8480  6-23U2  9120 


o* 


*****  Listing  or  Prograa  ’IESSQN2’  ***** 
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4470  PRINT*  INPUT  Stateaents* 

4480  PRINT 

4490  FRINT’You  iav  use  the  INPUT  stateaent  without  using  a  proapt  or  test* 

4500  PRINT’aessage.  If  vou  do,  then  vou  *ust  NOT  put  m  a  sen -colon.* 

4510  PRINT'For  exaaple:1’ 

4520  PRINT 

4530  PRINT'10  PRINT'CHR* (34) 'When  vou  see  a  question  aark,  ENTER  a  54CHR»!34) 
4540  PRINT *20  INPUT  N* 
o350  PRINT“RUN* 

4540  PRINT 

a 570  PSINT'Gives  vou:* 

4530  PRINT 

4590  PRINT*Nhen  vou  see  a  question  »ark,  ENTER  a  5* 

4400  PRINT*'1* 

4810  PRINT 

4420  INPUT “press  ENTER*: T* 

4430  S0SU8  81 20 

4440  PPINT*  INPUT  State»ents  leant ) * : PRINT 

4450  PRINT’10  PRINT*CHRV.34)*Nhen  you  see  a  question  aark.  ENTER  a  5*CHRH34i 

4440  PR!NT“20  INPUT  N* 

4470  PRINT’RUN* 

4430  PRINT 

3490  PRINT“Nhen  you  see  a  question  tan,  ENTER  a  5* 

4700  PRINT*-* 

4710  PRINT 

4720  PRINT’Notice  how  the  INPUT  stateaent  proiot  (question  *ark!  is  on* 

4730  PRINT'the  following  line’’  If  we  hadn't  included  line  10,  we  wouldn’t* 

4 '40  PRINT'know  what  to  do  when  we  saw  the  question  aark.  That's  why  you* 
4750  PRINT’wil!  see  the  test  included  in  an  INPUT  stateaent  aost  of  the* 

4740  PRINT’tiae.  However,  both  wavs  are  used.* 

477J  PRINT 

4 '30  INPUT’press  ENTER* : T * 

4790  50SUB  3120 

4300  PRINT’  INPUT  Stateaent  tcont ? ’ 

4310  PRINT 

4320  PRINT’10  INP'JT’CHRt (34) "ENTER  a  nuaber  between  1  3nd  9*CHRI(34> *iN* 

4330  PRINT’RUN* 

4340  PRINT 

4850  PRINT'If  we  were  to  save  this  exaaple,  and  run  it  at  a  later  date,* 

4840  PRINT’Ne  would  always  be  asked  for  a  nuaber  between  1  and  9.  ’N” 

4370  PRINT’would  always  be  changed  froa  zero  to  the  nuaoer  we  giye  it.* 

4930  PRINT 

4890  PRINT 'The  values  we  assign  to  variables  using  the  INPUT  stateaent  are' 
4900  PRlNT'not  stored  as  nart  of  the  prograa.  They  are  only  teaporarily* 

4?10  PRlNT'held  until  we  lea>e  BASIC,  Thev  are  reset  to  :ero  when  we  rerun’ 
4,20  PRINT'the  orograa.* 
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w?30  PRINT 

5940  INPUT  "press  ENTE.R* ;  T* 

5950  SOSL'8  3120 

:960  PRINT’  INPUT  Stataaents  icont! " 

3970  PRINT 

6930  PRINT'Ne  have  seen  evaaples  of  both  STRING  variables  and  NUMERIC' 

6990  PRINT "variables  and  we  ftave  seen  both  used  with  INPUT  state»ents.‘ 

7000  PRINT 

”10  PRINT* If  you  try  to  ENTER  string  data  into  a  NUMERIC  variable,  you’ 
’020  PRINT’will  get  a  ’"REDO'  aessage.  That  aeans  you  tried  to  ENTER  data” 
70'0  PRINT’that  was  not  proper  for  a  NUMERIC  variable. ” 

’040  PRINT 

7 >50  PRINT’S  oroble*  develops  when  you  think  you  are  entering  NUMERIC  data’ 
~C60  PRINT’and  you  ENTER  it  into  a  STRING.  You  mi 1 1  not  get  an  error* 

7070  PRINT’aessage.  Reaeacer,  out  the  right  land  of  variable  on  the  end’ 
7080  PRINT’of  the  INPUT  stateaent  (vou  Mill  be  tested  on  this)." 

7090  PRINT 

’100  INPUT “press  ENTER-; T* 

7110  6QSUB  3120 

7120  PRINT’  INPUT  Stateaents  Icont)’ 

7130  PRINT 

'140  PR  I  NT  *  You  lay  ENTER  data  into  aore  than  one  variable  using  only  GNE* 
7150  PRINT* INPUT  stateaent.  Just  put  a  cciaa  between  the  variables.’ 
7160  PRJ.NI’and  a  guest  ion  tart  oil  be  promoted  for  each  variable." 

7!70  PRINT1'::  etasple:" 

7 130  FRUIT 

7 190  PRINT” SO  INPUT’CHRK 34 CENTER  three  <3!  mi*0ers’CHR*<34l ’ifi.B.C* 

7200  PRINT 'RUN* 

’210  PRINT 

7220  PRINT’ENTER  three  !3;  numbers7  10’ 

7230  PRINT’77  27’ 

’24 0  PRINT’7’  3" 

’250  PRINT 

7260  INPUT’press  ENTER’; TS 
7270  S0SU3  3120 

7230  PRINT’  INPUT  Stateaents  icont;’ 

7290  PRINT 

7 300  PRINT’ 10  INPUT-CHR4 '34! 'ENTER  three  i3>  nuabers’CHR*(34!’;R.B.C” 

7310  PRINT-RUN* 

’320  PRINT 

7330  PRINT’ENTEP  three  13)  nuabers7  10* 

7340  PRIN7”’  22* 

’350  ’-PINT’77  5" 

”50  PRINT 

’370  FRINT’Notice  how  the  coaputer  keens  orcaotinp  vou  wuh  question  Barks’ 
7330  PRINT’until  it  gets  all  s‘  its  data’  This  can  be  a  ver.  useful" 
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7390  PRINT'routme,  especial iy  tihen  you  are  asfcmq  for  coordinates  or ' 
7400  PRINffor  soae  other  paired  data  input." 

7413  PRINT 

7420  INPUT’press  ENTER*! T* 

7430  S05U8  8120 

7440  PRINT*  INPUT  Stateaents  icont) * 

7450  PRINT 

7460  PRINT'10  INPUT’CHR* (34) "ENTER  three  (3i  nuBbers*CHR4(34)*:A.B,C“ 
7470  PRINT’RUN" 

7430  PRINT 

7490  PRINT'ENTER  three  (3)  nuabers?  10,22.5“ 

7500  PRINT 

7510  PRINT“Notice  that  *e  hastened  our  data  input,  in  this  case,  by" 

7520  PRINT'ENTERing  all  the  data  on  one  line,  separated  by  coaaas." 

7530  PRINT 

7540  PRINT'You  aay  choose  either  nay  of  ENTLRmg  the  data,  it  aakes  no" 
7550  PRiNT"dif Terence." 

7560  PRINT 
7570  PRINT 

7580  INP'JT-press  ENTER"! Tt 
7590  GOSUB  3120 

7600  ^INT'An  INPUT  stateaent  CAN  assign  a  value  to  a  variable  nhile  the* 
7610  PRINT'prograa  is  running?  (TRUE  or  FALSE!" 

’620  PRINT 

7630  INPUT'ENTER  the  word  TRUE  or  ENTER  the  word  FALSE’ ! It 
7640  PRINT 

7650  IF  T$  =  "TRUE"  GOTO  7690 

7660  PRINT'XRCNG  -  an  INPUT  stateaent  IS  used  for  inputting  data  nhile* 
7670  PRINT’the  progr3«  is  running" 

7690  GOTO  7700 
7690  PRINT "CORRECT" 

7700  FPINT 

7710  INPUT’press  ENTER" ! T t 
7720  G0SU8  3120 

7730  PRINT’What  is  the  proapt  that  an  INPUT  stateaent  ALWAYS  gives'1" 

7740  PRINT 

7750  rRINT’A  A  question  aark* 

7760  PRINT’S  Two  question  aarks" 

7770  PPINT’C  Quotes' 

7780  PRINT’D  the  aord  INPUT’” 

7790  PRINT 

7300  INPUT’ENTER  the  correct  letter  (either  A.8.C,  or  Di'lTt 
7810  PRINT 

7820  IF  Tt  *  "A"  GOTO  7850 

7330  PRINT "WRONG  -  the  proapt  that  is  ALWAYS  given  is  a  question  aari. " 
7840  SOTO  7860 
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7850  FRINT'CORRECT  -  GREAT'" 

7960  PRINT 

’870  INPUT'press  £NTER';T$ 

7380  GGSU8  8120 

7890  ?RINT“l«ifiich  of  the  following  is  a  valid  response  to  this  stateaent:" 

7900  PRINT 

7910  PRINT ‘20  INPUT  A.S.Ct' 

7920  PRINT 

7930  PRINT'A  2,ten,15‘ 

7940  PRINT’8  2,10,15  North  Eli* 

7950  PRINT’C  TWO, 1.22* 

7960  PRINT'D  22, NONE, 8“ 

'970  PRINT 

7980  INP'JT'ENTER  the  letter  opposite  the  correct  response  and  press  ENTER": Tt 
7990  PRINT 

3000  IF  Tt  =  ‘8‘  SOTO  3030 

9010  PRINT'NRONS  -  the  correct  answer  is  B  (2,10,15  North  Elal" 

3020  SOTO  8040 

8030  PR INT 'CORRECT  -  good,  this  section  is  just  about  done* 

3040  PRINT 

8050  INPUT'press  ENTER': Tt 

3060  SQSUB  8270 

3070  IF  Tt  =  *8”  GOTO  5670 

8030  RETURN 

3090  REN  «« 

3100  REN  **  This  subroutine  dears  the  screen  on  any  terainal 
3110  REN  ** 

9120  FOR  t  -  1  TO  24 
3130  PRINT 
9140  NEXT  X 
3150  RETURN 

9160  PRINT'  LESSON  2' 

3170  PRINT 

3180  PRINT* Thi s  is  the  first  part  of  a  two  part  lesson' 

9190  PRINT’ It  is  divided  into  the  following  sections.' 

9200  PRINT 

9210  PRINT* i )  Introduction  4!  RENarks* 

3220  PR  INT  '2;  Filer,  a»es  5)  INPUT  Statements* 

3230  PRINT'3)  SAVE.  LOAD.  RUN* 

3240  PRINT 
3250  PRINT 
3260  RETURN 
3270  603U8  3120 

8290  RRINT'Nhich  do  vou  wish  to  do7' 

3290  PRINT 

3300  PRINT'A  Continue  on' 
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8310  PRIST’S  Revie#  this  section  again* 

8320  PRINT 

8320  INPUT’oress  the  letter  opposite  the  correct  answer  anti  press  ENTEft’iTS 
8340  IF  Tt  =  ’A*  OR  T»  =  ’8"  THEN  RETURN 
9350  SOTO  8270 
3360  RUN  ’MENU’ 

8370  PRIKT’SOINS  TO  SECOND  PART  -  PLEASE  STANDBV’ 

8372  m'LESSOm' 

8380  END 
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260  SOSUB  6930 
270  SOSUB  69«0 

230  PRINT'S  I'i  taking  this  part  in  its  entirety.* 

290  PRINT'S  I  mi sh  to  review  selected  areas  (or  take  the  test).* 

300  PRINT'S  I  want  to  go  to  the  first  part.* 

310  PRINT’D  I  want  to  return  to  the  Nenu.* 

320  PRINT 

330  INPUT’Press  either  capital  ft,  B,  C,  or  D  and  then  press  ENTER*; T$ 

340  IF  TS  =  *0*  6010  7690 
330  IF  TS  :  “C*  SOTO  7700 
360  IF  TS  =  *8*  SOTO  430 
370  IF  TS  <>‘A*  SOTO  280 
380  60SUB  350 
390  SOSUB  3900 
400  SOSUB  4720 
410  SOSUB  6000 
420  SOSUB  6640 
430  SOSUB  a950 
440  SOSUB  4990 
450  eRINT 

460  PSINT’PIease  tvoe  in  the  nuwber  beside  the  area  you  wish* 

470  PRINT’to  review  (1  through  5)  and  then  press  ENTER  -  press  0  and' 

480  PRINT'press  ENTER  to  return  to  the  Menu." 

490  PRINT 

50D  INPUT "What  is  your  choice* ;N 

510  IF  N  =  0  THEN  GOTO  7690 

520  IF  N  =  5  THEN  GOTO  7630 

520  CN  N  SOSUB  550.3900.4720,6000,6630 

540  6QT0  430 

350  GGSUB  6950 

5bu  'PINT*  READ  and  DATA  Statements" 

370  PRINT 

580  PRINT* In  the  first  part  of  this  lesson,  we  learned  that  the  INPUT' 

590  PRINT'statesent  is  very  efficient  for  assigning  data  to  a  variable' 

600  PRINT'while  the  prograe  is  running.  However,  when  we  have  wanv* 

610  PRINT'data  points  to  assign  to  variables,  we  need  a  *ore  effi-' 
s20  DRINT*cier:t  eode.  Think  of  how  tedious  it  wculd  be  if  vou  had* 

630  cRINT*to  write  statesents  to  assign  250  data  points  in  a  prograe!* 
640  PRINT’  it  ’s  not  unusual  to  have  10  tiees  250  data  points  for  large' 
a50  PRINT'regressions  or  forecasting  prograesi* 

660  3PINT 

6'- 9  PRINT'How  do  we  handle  such  a  huge  workload1  One  wav  is  to  use' 

630  PRINT'PEAD  and  DATA  statements' 

690  PRINT 

’)0  INPUT’p'ess  ENTER' ; Tt 
"10  SOSUB  693  :> 
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720  PRINT"  READ  and  DATA  (cent)" 

730  PRINT 

740  PRINT’READ  and  DATA  stateaents  are  used  like  the  equals  sign  ’=’  is" 

730  PRINT'used,  hut  tnev  are  auch  taster  and  aore  versatile.  Also," 

760  PRINT-READ  and  DATA  stateaents  OPERATE  WITHIN  THE  PROGRAM  INSTEAD" 

770  PRINT'D?  INTERFACING  YOU  WITH  THE  PROGRAM." 

7 80  PRINT 

790  PRINT'READ  and  DATA  are  two  separate  stateaents,  hut  they  are  ALKAYS" 

300  PRINT’used  KITH  each  other.  The  READ  stateaent  assigns  the  data* 

810  PRINT'as  the  prograa  runs,  and  the  DATA  stateaent  holds  the  values" 

820  PRINT'to  he  assigned." 

330  PRINT 

840  INPUT"pre5S  ENTEft'iTS 
850  G05U8  6950 

360  PRINT"  READ  and  DATA  Sconti" 

870  PRINT 

830  PRINT'The  feraat  at  the  READ  stateaent  :s.“ 

89C  PRINT 

900  PRINT’Uine  nuaberi  READ  (variable  Gr  variables)" 

910  PRINT 

a20  PRINT’An  exaaple  of  a  READ  stateaent  that  uould  read  values  into" 

930  PRINT" van ab! es  31.  A,  and  m  is: " 

940  PRINT 

930  PRINT-10  READ  31, A, X**" 

960  PRINT 

V)  INPUT'press  ENTER":!* 

930  SOSUB  6950 

990  PRINT"  READ  and  DATA  ( cont)" 

1000  PRINT 

1010  PRINT’10  READ  Bl.A.HJ" 

1020  PRINT 

1030  PRINT'Note  that  both  nuaeric  and  string  variables  aav  be  ’read'" 

1050  PRINT" An  etaaoie  of  a  DATA  stateaent  that  aould  be  read  is:’ 

1060  PRINT 

1070  PRINT’20  DATA  22,15."CHfit<34>"AIN’T  she  s»eet?"CHR*<34) 

1030  PRINT 

1090  PRINT'Notice  that  the  DATA  stateaent  has  a  different  line  nuaher,  but" 
1100  PRINT’it  to! lews  the  saae  foraat  as  the  READ  stateaent.  Nhen  these" 

1110  PRINT "two  stateaents  are  placed  in  a  prograa,  the  variables  81.  A.  " 

1120  PRINT’and  XX*  «ould  hold  22,  15,  and  "CHRS(34)*AIN’T  she  sweet^’CHR* (34i " 
1130  PRINT 

1140  INPUT'press  ENTER": M 
1130  SOSUB  6950 

1160  PRINT"  READ  and  DATA  (cont)" 

1170  PRINT 

1130  0RlNT"T*--e  two  stateaents  can  appear  anvtihere  in  a  orocraa  and  in  any" 


respectively. 
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1190  PRINT’order,  but  for  clarity,  srcgrauers  usually  place  the  DATA  “ 
1200  PRINT'stateient  after  the  READ  statement.  Also,  the  DATA  statesents" 
1210  PRINT*are  usually  grouped  aith  other  DATA  statesents  in  the  jrogra*.” 
1220  ?RINT*Me  do  that  because  it  *akes  it  easier  to  fiqure  out  another" 
1230  PRINT’progra*  alien  there  is  an  order  to  hoa  the  programr  entered" 
1240  PRiNT’his  statements.* 

1250  PRINT 

1240  I hlFUT “press  ENTERUT* 

1270  GCSUB  6’50 

!23v  FRINT'ls  the  folloaing  statetent  TRUE  or  FALSE"1' 

1290  PRINT 

1300  PRINT'A  READ  state»ent  reads  .alues  fro*  a  DATA  stateeent.* 

1310  PRINT’and  olaces  the  .a lues  in  variables  that  are  to  the” 

1320  PRINT’nght  of  the  READ  aord.* 

1330  PRINT 

1340  INPUT 'ENTER  the  aord  TRUE  or  ENTER  the  aord  FALSE  UTS 
1330  PRINT 

1360  IF  TS  =  'TRUE*  THEN  GOTO  1390 
1370  PRINT'NRQNG  -  the  sentence  is  valid.* 

1330  GOTO  1400 
1390  PRINT’CGRRECT' 

1400  PRINT 

1410  INPUT'cress  ENTER* ill 
2420  SGE'Jf  6950 

1430  PRINT*  READ  and  DATA  !cont)“ 

1440  PRINT 

1450  PRINT’ 10  READ  SI. A.  US" 

1460  PRINT 

1470  PRINT "20  DATA  22.5.*CHRS<:4l,AIN’T  she  saeet'*CHRS(34) 

1490  PRINT 

1490  PRlNfThe  variables  m  the  READ  stateaent,  and  the  values  in  the  * 
1590  PPINT’DATA  stateaent  are  separated  bv  coaeas,  and  the  string  is’ 

1510  PRINT’encIosed  in  quotes.  Vou  cannot  assign  string  data  to  a  * 

1520  PRINT’nuaeric  variable,  if  /ou  do,  your  coeouter  mi  1 2  throa  uo1* 

1330  PRINT’ (Mel  1 .  at  the  very  least  it  aill  ALNAVS  give  vou  an  ERROR" 

1340  PRlNT’aessage’" 

1550  PRINT 

1340  INPUT’oress  ENTER"; Tt 
1370  SOSOS  6950 

1530  PRINT*  READ  and  DATA  icont)* 

1590  PRINT' 10  READ  SI, A  V 
>600  PRINT“20  PRINT  Bl.A.r* 

1610  PRINT’30  PRINT  "CHRSI341 ‘The  aver aoe  of  these  nuabers  is*CHRS(34>“;" 
1620  PR  I  NT ’40  PRINT  (B!*A+V!/3“ 

1 a30  PRINT’30  DATA  5.10.13* 

1640  PRINT’RUN" 


J 
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1450  PRINT 

1640  PRINT'S! ves  us:' 

1470  PRINT 

lo30  PRINT'S  10  15* 

1490  PRINT" The  average  of  these  nuabers  is  10* 

1700  PRINT 

1710  PRINT’NCN1  Studv  this  exaaple  for  a  «o*ent.  Note  that  the  calcula-" 
1720  PRINT'tians  were  printed  beside  the  aessage  instead  of  below  it.' 

1730  PRINT 

1740  INPUT "press  ENTER"; T$ 

1750  S0SUS  6950 

1740  PRINT"  READ  and  DATA  (contl* 

1770  PRINT 

1730  PRINT'The  calculations  were  not  printed  on  another  hne  because  of’ 
1790  PRINT'the  seal -colon  after  the  print  stateaent  in  line  30." 

1300  PRINT 

1310  PRINT" 10  READ  31.fi. Y" 

1320  PfHNT‘20  PRINT  Sl.A.Y" 

1830  PR! NT "30  PRINT  "CHRS (34) "The  average  of  these  nuabers  is*CHft$(34)*:* 
1340  PR  I  NT " 40  PRINT  Sl.A.Y" 

1350  PRINT‘50  DATA  5,10.15* 

1340  PRINT 

1370  PRINT'Lrne  10  read  the  data  in  line  50,  line  20  PRlNTed  it.  and* 

1330  PRINT  *  1 1 re  30  printed  the  aessage.  The  calculations  in  line' 

1390  PRINT "40  were  printed  on  the  er.d  of  the  aessage  due  to  the  se»i-colon’ 
1900  PRINT" at  the  tail  of  line  30." 

1910  PRINT 

1920  INPUT "press  ENTER"; Tt 
1930  30SUB  4950 

1940  PRINT"  READ  and  DATA  conti" 

1950  PRINT 

1940  PRINT"_et ‘ s  I oo i  at  it  once  aore:' 

1970  PRINT 

1930  PRINT *10  READ  31,4./" 

1990  SRINT"20  PRINT  91.A.Y* 

2000  PRINT-30  CR!NT  ":hRK34i "The  average  of  these  sabers  i »"CHR* < 34 < *s * 
2010  PRINT "40  PRINT  31»A*Yl;3" 

2.20  PRINT'S}  DATA  5.1). 13" 

2030  PRINT 

204u  PR  I  NT " Ga ■ e  us; " 

203'J  PRINT 

2:40  HINT'S  10  13" 

DC:  PcINT"Tte  average  of  these  nutbers  is  10" 

2030  PR1NT 

I'M  !NPjT,ortss  ENTER": T» 

DIO-:  D-CS'JP  p93) 
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2110  FRINT’Na*  for  a  neat  exaeple:" 

2120  PRINT 

2130  PRINT’10  READ  Al.Bl. Cl" 

2140  PRIN7TO  PRINT  Al.Bl, Cl" 

2 ISO  PRINT-30  DATA  1.2* 

2160  PRINT’RUN* 

2170  5R  INI 

2180  PRINT-Si ves  us:* 

2170  PRINT 

2200  PR  I  NT "OUT  OF  DATA  IN  10“ 

2210  PRINT 

2220  PRINT’The  SASIC  language  processor  gave  us  •>  ERROR  aessage  that* 

2230  PRINT,indicates  tie  didn’t  have  enough  data  tor  the  nueber  of  varia-" 
2240  PRINT'bles  that  ue  tried  to  READ. * 

2250  PRINT 

2240  INPUT’press  ENTER" * T* 

2270  SOSL'S  6930 

2230  PRINT"  READ  and  DATA  Conti" 

2290  PRINT 

2300  PRINT'tO  READ  Al.Bl, Cl" 

2310  PRINT-20  PRINT  Al.Bl.Cl* 

2320  PR  I  NT "30  DATA  1.2" 

2330  PRINT 

2340  PR INT'Thi s  prograe  ml!  BQI1B  ‘.fail!  because  it  mil  try  to  find  a' 

23S0  PRINT’non-emtent  data  ooint  for  the  variable  Li.  if  there  had" 

2340  PRINT'been  lore  DATA  points  than  READ  variables,  the  orcgrae  aould'’ 
12?':  PRINT ’hive  sorted  just  ‘:ne.  The  next  fraae  has  ar.  exaaale  of  this.’ 
2330  PRINT 

239)  INPUT-press  ENTER";  Tt 
2400  30SUS  4950 

2410  PRINT"  READ  and  DATA  tcont!" 

2420  PRINT 

2430  PRINT " !C"  READ  Al.Bl’ 

24^0  PRINT "20  PRINT  Al.Bl’ 

2450  FRINT’30  DATA  1.2,3, 4, 99* 

2460  PRINT 

2470  PRINT'S: ves  us:" 

2430  PRINT 

2490  PRINT"!  2" 

2100  PRINT 
2310  PRINT 

2S20  PRINT’AI though  there  were  tore  data  points  that  could  have  been  read," 
2330  PRINT’there  aere  no  *ore  variables  left  to  READ  thee,  so  the  prograe" 
2340  PRINT’stcpoed,  This  aould  not  cause  an  ERROR  eessage." 

2330  PRINT 

2360  INPUT’press  ENTER*;!* 
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2570  SOSUB  6950 

2530  PRINI'Is  the  following  progra*  valid*" 

2590  PRINT 

26u0  PRINT'IQ  READ  X, ^,2’ 

2410  PR INT '20  DATA  25.2.15,55.64' 

2620  PRINT* 30  PRINT  2* 

2630  PRINT 
2640  PRINT"  Ye i* 

2650  PRINT*!!  No* 

2660  PRINT 

2a70  INPtiT'Enter  the  letter  Deposits  the  correct  answer*;!* 

2680  PRINT 

2690  IF  ft  -  ’A*  THEN  SOTO  2720 
2700  PR!NT*NRQN6  -  the  program  is  valid* 

2710  GOTO  2730 
2720  PSINT'CORRECT  '* 

2730  PRINT 

2760  INPUT “press  ENTER*: T$ 

2750  PRINT 

2760  INPUfNhat  is  the  value  of  2  that  mil  be  printed  out’;Ts 
2770  PRINT 

2790  IF  Tt  =  *15“  THEN  SOTO  2330 

21Q0  PRINT'NRGNG  -  the  correct  answer  is  15,  2  is  the  third* 

2300  PRINT*  variable  to  be  read,  so  the  third  data  point* 

2810  PRINT*  is  cut  in  it.* 

2020  GOTO  2340 
2830  PRINT'CORRECT  '* 

2840  PRINT 

2850  INPUT'oress  ENTER*! Tt 
2860  50SUB  6950 

2370  PRINT*  READ  and  DATA  (cent:* 

2330  PRINT 

2390  PRINT’Sucdose  vou  want  to  READ  the  saie  data  points  into  DIFFERENT* 
2900  PRINT’variatles’'  Or  perhaps  vou  are  taking  a  progra*  that  will  deal* 
2910  PRINT'a  deck  of  cards  out.  and  you  want  to  start  over  when  you  get’ 
2920  PRINT’to  52.  You  can  reset  the  DATA  statesents  so  that  variables' 
2930  PRINT’wiIl  be  assigned  old  data  points  by  using  the  RESTORE* 

2940  FRINT'stateoent.  * 

2950  PRINT 

2960  INPUT 'press  ENTER*;!* 

:«70  SOSUB  6950 

Z580  PRINT'The  RESTORE  statement  resets  the  DATA  statements.  After  a* 

2990  PRINT-RESTORE  coeaand,  the  next  variable  that  is  READ  will  be" 

3000  PRINT'assicned  the  value  that  is  ,-ust  after  the  first  DATA  word.* 

3010  PRINT 

3020  PRINT'10  READ  At, 81* 


*****  Listing  at  Progra*  ’LESSGN2A’  ***** 


07/10/83  -  00:24 


3030  PR1NI-20  PRINT  A1.B1* 

3040  PRINT *30  RESTORE 
3050  PR1NT‘40  READ  01.01* 

3060  PRINT* 50  PRINT  Cl, HI* 

3070  PRINT *60  DATA  1.2* 

3080  PRINT'RUN* 

3090  PRINT 

3100  PRINT* 1  2* 

3110  PRINT* 1  2* 

3120  PRINT 

3130  INPUT’Study  this  sxanoie  closel*  ana  then  areas  ENTER*; Tt 
3140  GDSUB  6950 

3150  PRINT*  READ  and  DATA  (cant)* 

3160  PRINT 

3170  PRINT'This  has  been  an  extra  long  section  and,  it  you  are  new  to’ 

3IS0  PRINT'EASIC,  vou  orppabi.  are  contused  about  soee  of  the  rales.' 

3190  PR!NT*0cr,’t  let  that  acrrv  vou.  Set  out  »our  SASIC  sanual  lit  case* 

3200  PRINT’*ith  .our  coiauteri,  ana.  alter  the  little  qu;r  that  is* 

3210  RRINT’cosinc  ua,  go  back  and  rev.es  this  section  agam.  THEN* 

3220  PR  I  NT 'PRACTICE  the  techniques  once  .ou  are  through  r.th  this  * 

3230  PRINT"lesson.  It  is  ,er;  uportant  that  you  start  practicing  what* 
3240  PRINT*. ou  are  learning.  Practice  «ith  the  sanual  beside  you.  and* 

3250  PRINT’don’t  be  afraid  to  ask  an  experienced  prog  rater  when  vou  are* 
32a0  PRINT’canfused.  Use  the  exasdes  seen  in  this  pragras.  cr  sake  up* 
3270  PRINT'vour  oun.  Vcu  are  one  step  closer  to  being  a  BASIC  programer 1  * 
3280  PRINT 

3290  INPUT'oress  ENTER’;  Tt 
3300  GQSU8  6950 

3310  PRINT* 1 5  the  following  statesent  TRUE  or  FALSE’* 

3320  PRINT 

3330  PRINT'The  RESTORE  statesent  causes  the  READ/DATA  combination* 

3340  RRINT'to  reset  to  the  first  data  point  to  the  right  of  the* 

3350  FRINT’first  DATA  statesent.’ 

3360  PRINT 

3370  PRINT'S  TRUE* 

3380  PRINT’S  FALSE" 

3390  PRINT 

3400  INPUT’ENTER  the  letter  oooosite  the  correct  ans*er’;Tt 
1410  PRINT 

3420  IP  Tt  =  ’A’  THEN  SOTO  3460 

3430  PRINT’NRQNS  -  the  RESTORE  cossand  DOES  reset  the  READ /DATA  pair’ 

3440  PRINT"  to  the  first  data  point  oast  the  first  DATA  acrd.’ 

3450  SOTO  3470 

3460  PRINT’COP'PECT  -  SUPER  ” 

3470  PRINT 

3490  INPUT’press  ENTER*; T* 


***»»  Listing  of  Pro qraa  'LESS0N2A'’  ***** 


iJ/U >/S3  -  00:24:03 


:m  sms  s?5o 

3500  PRINT'REAO  and  DATA  stateserts  are  used  mtmn  a  arcqra*.  and  the'-.'" 
3510  PRINT'do  NOT  stco  the  sro;ra*  so  DATA  can  ae  entered." 

3520  PRINT 
3530  PRINT 'A  TRL'E" 

3540  PRINT'S  FALSE ' 

3550  PRINT 

35d';  WJT’press  the  letter  opposite  the  correct  ar.saer  and  crest  ENTER';  rl 
3570  PRINT 

3580  IF  T$  =  'A'  THEN  GOTO  3620 

3580  PRINT'NRONG  -  READ  and  SATA  statements  00  NOT  halt  the  orcqra*.  the." 
3600  PRINT"  aust  be  used  at  thin  the  croqraa." 

3610  GOTO  3630 

3a20  PRINT-CORRECT  -  *-x  certain! *■  have  a  qaoi  anor,.' 

3630  PRINT 

3h4c  INPOT'aress  ENTER" :Tt 

3c  50  8CSI/B  4950 

354*i  FRINT'I'j  REAS  HI. SI" 

3s’0  PRINT* 20  PRIM  41. M* 

3580  PRINT '30  RESTORE' 

3*90  RR:Nr"40  READ  C1.3I.EI* 

"'Vi  PR  1ST '50  PRINT  Cl. 01* 

37;;:  PRINT* SC  DATA  342.34“ 

3*20  PRINT 

3731  PRINT “The  above  oroorai  is  ERROR  free" 

3' 40  PRINT 

3350  PRINT*#  TRUE' 

3760  PRINT'S  FAi.EE* 

3770  PRINT 

3730  INF  IT 'ENTER  the  ccrrsct  answer  either  A  or  gl'tT* 

3795  ?o;nt 

330  IF  *J  -  "8"  3013  3840 

3510  RRINT*S«RCN8  -  LINE  41  tr-.ed  to  read  »ore  SATA  than  «as  svaiUcle.* 

3323  PRINT1  e<en  tscaah  the  RESTORE  csMans  *as  csed." 

3330  SOTS  3350 
3840  PRIM  "CORRECT ' 

3350  PRINT 

3350  INPlT "cress  E.vTEP’;TS 

3370  SOS'JB  T'.OC 

:a=’>  !c  :t  -*  *8"  THEN  GC^  550 

3  3  80  RE  TORN 

3900  023b*  MS! 

sosu?  *::« 


393*1  ^IHTMhere  are  two  t.jes  3*  t r 
3’30  PRINT 'in  fe  'art  two  s  sc  tiers. 
3740  ?9;NT"jS':2N2IT:aML  srencres.  * 


enches.  ar.d  we  mil  be  stcdvina  the*1 
T'*e»  ere  53NSITI3N4'.  branches,  and* 
he  ec-eve  croaras  has  b::n  finis  i-  it" 


*****  Listing  of  Prsgraa  ’LE3SOO'  ***** 
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yzo  fftisii 

35i0  PRINT 'Line  30  is  CONDITIONAL  anC  line  40  is  UNCONDITIONAL.  Can  vcu* 
3R’D  INPUT  "see  *»hv?  Stuov  thus  tor  a  aoient  ana  then  press  ENTER."  ;TS 
3:30  BOSL'S  6950 
’PRO  SOSUB  7020 

40C0  FRlNT'Lme  30  is  CONDITIONAL  because  it  will  only  00  T3  line  50  if* 
4010  PSIST’the  CCNDITIGN  that  A  =  3  is  satisfies,  that  is.  control  nil!" 
402*0  PPlNT’onlv  te  transterrea  to  line  50  if  A  =  5.” 

4; 30  PRINT 

4040  INPUT'oress  ENTER*; T$ 

4050  52303  i?5-0 
40cl  SGSUtf  ’220 

iCO  PRlNT’Line  40  is  UNCONDITIONAL  because  it  will  ALWAYS  SO  T3  line  20" 

4020  PRlNT"Nher.  it  is  executed.  There  mil  be  no  choice  aabe.' 

4CR0  PRINT"CantrcI  mil  go  to  line  20.* 

4’ 00  PRINT 

ill)  INPUTVess  ESTEP*; II 
4: 20  G03UB  6950 
4130  SOSUB  7220 

4140  PR!NT*Nctice  that  A  will  not  eoiisi  5  until  line  20  is  executed  5“ 

4150  op.lNVf.ses.  Therefore,  until  A  =  5.  the  CONDITION  in  line  30  mil' 

Tic)  PRINT"*iOT  be  set  and  control  mil  NOT  GOTO  line  50.  Instead,  it" 

4 1’ 0  »R!NT*mll  go  to  the  next  line  which.  is  UNCONDITIONAL  GOTO  lire  20.* 
4 i 30  PRINT 

i:30  INF UT “Stud >•  this  careful Iv.  and  then  cress  ENTER'*;!* 

420 J  SOSUB  cRS" 

4210  SOSUB  7220 

4220  PRINT ‘The  statement  in  line  20  has  cade  a  COUNTER  cut  of  the  .aria: I 
4230  PPINT'A.  Eve-vtue  the  line  :s  executed.  A  is  mcreaentas  bv  jr.e. ' 
434  )  F'R’NT"2CUNTERS  are  useful  in  BASIC  and  we  ml!  discuss  then' 
4250  APIS’ 'acre  ;n  a  -uture  lessc-n.  :cr  non.  trv  ts  understand  ho*  this* 
425)  R-lNf'crt'crae  wor>s,  a-:  it  «;I  help  vcu  ueenseh  m  the  future. " 
4270  PSIN* 


4  3  PC  ;'5lN'"Tne  two  t  .ces  of  branch: na  are: ' 
1311  ssisT 


4331  JP. In3  A  :0NDI'I2nAL  and  JNCC'NDI'ICNAL ' 

1 330  PR: NT "2  COUNTER  and  CONLillCNAL' 

434 v  PRINT*:  COUNTER  and  SCTC* 

4350  «IN*"0  IP  and  SCTC* 

4331  :: IN* 

JV.T'tress  the  letter  obbosite  the  correct  answer  a~d  cress  ENTER": 
433)  PRIN’ 
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[-  *|  r  ‘A"  'REN  3£T0  44 2v 
:“!N’'wP3.s3  -  the  ;j"ect  ars„er 


1  CONDITIONAL  and  LNCuNDIT'CNAL 


■3'' 


Listing  of  ^ragra*  'LE53CN2A'  ***** 


37.- 1*: 


524:  ^INT-ta  line  TO.  :*  it  :ces  NOT  ecua!  ’.  then  tcrtrc’.  transfers  to  ‘ 
535.  CR3NT*200.  I r.  this  case,  scsethmo  ACHAtS  hausens  at  line  220“ 

33s-7  PRINT-becsuse  si  the  ELSE  stateaent." 

5370  PRINT 

33.30  PRINT  '223  IP  A  =  I  THEN  SCTC  I')  ELSE  IF  A  =  2  GOT:  30“ 

3390  ?Rirr 

3400  PRINT " In  this  case,  i f  ri  =  1  or  4  =  2  then  soaetftng  *:li  iiaoaer 
5410  PRINT’m  line  220.  it  nans  of  the  CONDITIONS  are  re t.  then  the  line' 
342o  PRINT “wi 2 1  not  he  ei.ecutea. " 

3425  PRINT 

543;  JNFUT’iress  ENTER": Tt 
3440  3CSUB  3950 

542'j  PRINT'  IF  Stateaent  (cent)" 

5430  PRINT 

5470  PRINT 4 Is  itrue-'*ais€  ecoressioni  THEN  •. action  ElSE  ‘.action < ” 

5430  PRINT 

3490  ?BIhf*The  IF  stateaent  instructs  the  ccsputer  to  test  the  *91 1  same 
3501  pRINT'Iacical  sr  relational  e-ioress'cn.  If  the  esaression  is  TRUE" 
35:0  PPINT'then  central  ..ill  oroceed  to  the  action  line  after  the  THEN" 
532:  PRI!»T*«orS.  If  the  e :oression  is  not  true,  then  control  mil  orcce 
3530  rRINT'to  the  ELSE  action." 

3540  PRINT 


3530  INPUT “areas  ENTER": Ti 
3530  SQSUB  4?50 

!5’0  PRINT-feat  is  the  c-utsut  o;  the  ollo.mo  orooraa1* 
3330  PF.I-T 


3597 
5400 
34  !C 
5420 
3437 
3440 


3:31  PRINT 


34:0 

54 'l 

5:3 

5390 

3  ’00 

3710 

5720 

1720 

3740 

c^Cn 

3’40 

c  "•  -I 

5730 


PR  I  NT  "20  I-  2  I?C  THEN  PRINT  "2HR$i74; ‘TOO  aE4rH.HR*  '34; 

PRINT-30  IF  A  ;  254  THEN  PRINT  *CHR$  :34;  "TOO  3TR0Nb"CHf:t  .34. 

PR  I  NT  “40  IP  A  =  255  THEN  PRINT  'CHF.S !34: ‘A  =  255*'2HF;r34; 

PP INT 

PRINT'S  'QC  »£A;  “ 

PRINT"  A  =  255“ 

°R!NT"S  r23  STRONG" 

PRINT'  END* 

TOG  STRONG" 


PRINT"  A  =  235" 

PRINT'D  A  =  255" 

PRI.NI 

INRUT'ENTER  the  letter  ocoosite  the  correct  answer " ; T$ 
p»!NT 

IF  Tt  =  "C"  GOTO  5780 

PRINT "WRONG  -  the  correct  answer  is  C  <*30  STRONG!" 
PRINT"  ift  -  255! * 

:-0T0  5790 

PRINT-CORRECT  -  We  need  .our  sind  m  the  o.ccet  office1 


r 


*****  l:stmq  of  Prcqrae  'LE3E3N2A'  ***** 
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INPUT 'cress  ENTER* :TI 
53IV  G2SUB  5=50 

5 320  FRI.NT*The  IF  stacesent  is  a  CONDITIONAL  stateient." 

5330  PRINT 

594?  PRINT' Is  the  atavs  sentence  TRUE  or  FALSE'" 

5330  PRINT 

33i)  PRINT JA  TRUE" 

537'J  PRUT'S  FALSE" 

5930  f  ;INT 

5390  INPuT'cNecse  tne  Utter  cspasite  tne  correct  ans*er  arc  oress  ENTER"; Ti 
5900  °RINT 

5910  IP  TI  =  'A"  GOTO  5*40 

5320  PR1N!“WRGNG  -  the  IF  stateaent  IS  a  CONDITIONAL  stateient. " 

5930  SOTO  5950 
5W0  PRINT  “CORPSE  I* 

5950  PRINT 

5?a0  INPUT “press  EMTEP * » T t 

5970  SGSUE  7100 

5430  I?  TI  =  “8"  GOTO  4720 

5990  RETURN 

aoO'j  SCji/3  4950 

aCl'j  PRINT"  SOTO  Stateeents* 

4020  PRINT 

403}  PRiNT'Ccno:  tional  or  arches  are  art ‘.ten  in  orcqraes  »;th  IP  THEN  PISE" 
47.40  PRINTUtatesent a.  -.nrr.dtijcnai  tranches  are  antten  *;tN  6CTC* 

: )5‘>  PRINT'stateeents. ' 

;04t  PRIST "As  *e  sa«  earlier  30’2  directs  centre!  nl  a  oronra*  to  another" 
4 . TO  ?9!Nr,I:«e.  Far  e-aeoiel" 

:  j30  32=  J8  74  '•} 

:M  PRINT 

:I.O  INDL,T  'cess  EN’E5“lTI 
all  5  8QSUS  493/' 
a  1 2  SCSI'S  "470 
c3 TO  PR!NT 

i ! 40  PSINT"Tte  GOTO  statesent  in  line  40.  when  executed.  sends  cantral  to* 
a  150  PRINT  "the  aecimunq  o;  the  c-rograa.* 
sisv  P=!NT 

i'.To  imr ’cress  ENTER" ; Tl 
si 30  50SU?  =-53 

•s’cO  PRINT’  GOTO  icont!’ 

42)0  PRINT 

4210  PRINT"voo  can  sake  the  GOTO  stateaent  a  NULTI-aa>  tranciv.r.c  stateient" 
a22o  PRINT *5 v  aodif.ino  it  slight!*.  For  exaasie:* 
a 23 7  PRINT 
a 240  SQSiis  "237 
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****  Listing  o f  Progra*  ’LESSOO’  ***** 
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o230  PRINT 

6240  INPUT'cress  ENTER*; Tt 
6270  30SUB  6950 
6280  SCS'JB  '580 
6290  PRINT 

6300  PS  INI' When  line  20  is  executed,  the  value  of  N  is  used  to  count  over" 
8310  ?RIST*’N'  ele*ents  passed  the  GOTO  aord.  Control  branches  to  the" 

8320  FRI.NT’lir.e  nueoer  indicated  b/  this  ‘Nth’  eleaer.t.  If  there  is  no" 
6330  PRINT’eleae.it  that  corresponds  to  the  value  of  N,  then  control  passes’ 
8340  INPUT 'to  the  neat  available  line.  Press  ENTER  ahen  ready *; T* 

6350  SCSL'P  4950 
6340  G3SU8  '230 
8375  -PINT 

i 33%  FSINT'The  value  of  N  NUST  be  greater  than  0  and  less  than  255.  If  st‘ 
8390  PRINT’is  net.  SASIC  ail!  print  an  error.  If  Ji  is  1,  2.  or  3  then  the” 
4400  PRINT’prograa  aill  print  the  aporopriate  sessage  and  stoo.* 

4410  PRINT 

3420  INPUT'p'ess  ENTER* ;Ti 
4430  S0SU8  8950 

o440  PRINT “Uhi ctn  lines  icevono  201  are  executed  if  ;ou  ENTER  a  10  here'” 
6450  PRINT 
8430  GOSliS  7580 
6470  PRINT 

8430  PRINT**  30  and  40“ 

6490  PRINT "8  50  and  60” 

6500  PRINT’C  ')  and  80“ 

6510  PR!Nr 

6320  INPUT'press  the  letter  opposite  the  correct  ansaer  then  pres  ENTER* : T* 
4330  PRINT 

6340  IF  Tt  =  *A*  SOTO  4370 

435')  PRINT'NRONS  -  the  correct  ansaer  is  A  f 30  and  401" 

8333  PRINT 
6560  SOTO  65 50 
3270  PRINT'* CORRECT" 

623)  PRINT 

c23)  INPUT’press  ENTER*,*!* 

3640  GC3U8  3?5) 

4310  PRINT’You  are  r.ow  done  aith  this  lesson.  When  »ou  hit  ENTER.  vc«" 

3820  PRINT'mll  be  returned  to  the  f!ENU  ahere  you  my  revieu  sections* 

382)  PRINT *or  tale  the  TEST.' 

6840  PRINT 

6350  FRINT”:e*e*ber.  after  vou  are  done  here,  cactice  soee  c<  the” 

8360  ?R I T’things  .ou  ha.e  learned.  And  i-eep  a  BASIC  lanual  by  .our  side." 
o973  -RINT*'rhis  orncran  aill  shpu  vpu  the  fundwentals.  ;ou  have  to  teach" 
:33 0  PRIV*’ Yourself  hoa  tc  be  goed  at  SASIC.  That  sears  vo.  lust  PRACTICE' 


f 


***♦»  Listing  of  Prograa  ’LES30N2A'  *«** 
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6900  iffPL!T”prsss  ENTER  to  go  to  tie  MENU* : ) i 
4910  RUN 
6929  REM  ** 

a’30  REM  m  This  suhrautine  clears  the  screen  cn  any  tersinal 
494 0  REM  *♦ 

4950  FOR  X  =  1  TQ  24 
4940  PRINT 
a970  NEXT  X 
4930  RETURN 

4990  PRINT*  LESSON  28* 

TOCO  PRINT 

7010  PRINf'This  is  the  second  part  of  a  two  part  lessen’ 

’020  PRINT'lt  is  li vided  into  the  following  sections.’ 

*932  PRINT 

7040  PRINT'D  READ,  SATA  and  RESTORE  3)  IP  Statements* 

’050  PSIST'21  Branching  Introduction  41  GOTO  St&teter.ts  V  Su»»«r«* 

’04)  PRINT*  51  TEST  " 

’070  PRINT 
7030  PRINT 
7090  RETURN 
7100  GQ3UB  695') 

’110  PRINT'Nhich  do  /ou  want  to  do?* 

’120  PRINT 

’! 30  PPINT’A  Continue  on* 

"’140  PRINT'S  Review  this  lesson  again' 

’130  PRINT 

’160  INPUT'press  the  letter  opposite  vour  choice  and  press  ENTER*; rS 
’170  IP  T*  O  ’A"  AND  T<  ■  “S*  SQTC  7160 

7130  RETURN 
7190  REM 

7200  REM  This  suproutme  prints  the  Branching  section  e  aesle 
7210  REM 

7220  PRINT”  Branching  Introduction' 

’230  PRINT 

7240  PPINT'10  A  -  0* 

7250  PR  I  NT '20  A  =  AD* 

7240  PRINT '30  IF  ft  =  5  THEN  GOTO  50" 

7270  PRINTMO  SOTO  20’ 

7230  PRINT'50  PRINT  ft' 

7290  PRINT *60  END' 

’390  PRINT 
’310  RETURN 
’329  REM 

’33C  REM  This  subroutine  is  fer  the  IP  statesent  erasoles 
’34)  REM 

7350  :RINT’  IF  Statements  leant)" 
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*****  Listing  o*  Prograi  ‘LESS0N2A’  ***** 
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'360  PRINT 

737)  PRINT"  10  INPUT  "CHR* (34) "ENTER  a  muter  between  1  and  10  <0  tc-  quit;"CHS*(34;":N" 

7330  PRINTTO  IF  N  =  0  THEN  STEP* 

7390  PRINT"30  IF  N  :  10  THEN  PRINT  *CHfi*( 34) "ERROR  -  you  entered  an  invalid  mi#oer"CHR*i34i 
7400  PRINT-40  IF  N  -  0  PRINT  "CHR* (34) "ERROR  -  you  entered  an  invalid  nuaber"CHR*(34i 
7410  PRINT'S)  30T0  10" 

7420  PRINT 
7430  RETURN 
744)  REN 

'450  REN  this  it  subroutine  tor  3QTG  etaiole 
7460  REN 
7470  PRINT 

T 430  PR INT “10  INPUT  "CHR* (341 "ENTER  a  nu«ber  between  1  and  10"CHR*!34) "IN" 

’490  PR  I NT *20  IF  N  =  8  THEN  GOTO  50" 

’500  PRINT-30  IF  N  «.  >  3  THEN  PRINT  "CHft*(34>  "GUESS  ASA  IN*  CHR*!  34) 

7510  PRINT* 40  GOTO  10" 

'520  PRINT’jC  PRINT  "CHR* (341 "YOU  GUESSED  IT" 

7530  PR  I  NT “60  END" 

7540  RETURN 
’550  REN 

75so  REN  this  is  the  subroutine  evaipie  ter  ON  GOTO 
7570  REN 

’530  PRINT* 10  INPUT  "CHR* (34)  “ENTER  a  nuiber  between  1  and  3“CHR*(34) "!N“ 

7590  PRINT'D  ON  N  SOTO  30,50,74 

7600  PRINT-30  PRINT  "CHR*!34) “YOU  ENTERED  A  ONE  ior  an  illegal  nu«ber)"CHR*(34) 

7610  PRINT’40  STOP' 

7620  PRINT ‘59  PRINT  "CHR* (34) “YOU  ENTERED  A  TN0"CHP$<34! 

7630  PR!NT*60  STOP" 

7640  F'RINT'70  PRINT  “CHR*(34)"YQU  ENTERED  A  THREE ‘CHR*  (34) 

7650  PR! NT "90  STOP" 

7660  RETURN 
7670  REN 
7680  RUN"TE3T2* 

’690  RUN’NENU" 

77)0  RUN"IESS0N2* 

7’ 19  END 
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10  REM  »e 

20  PEN  ♦♦  LESSON:  TEST2  VERSION:  1  AUG  33 

30  REM  **  AUTHOR:  CAP!  DAN  CREA8AN 

4<J  REN  «  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 

50  REN  ** 

60  REN  *♦  VARIABLES: 

70  REN  **  N HU  =  NAMES  ARRAY.  USED  TO  READ  IN  SEB- 

30  REN  »*  UENTIAL  NAMES.  AND  TO  WRITE  OUT 

RO  REN  *»  UPDATE  NANES. 

100  REN  SU>  -  SCORES  ARRAY  -  USED  TO  READ  AND 

IIO  REN  **  WRITE  SCORES 

120  REN  ♦♦  0(1!  =  ARRAY  TO  KEEP  TRACK  OF  NUMBER  OF 

130  SEN  *♦  CORRECT  ANSWERS .  IF  AN  ARRAY 

140  REN  «  ELEMENT  EQUALS  1.  THE  ANSWER  HAS 

150  REN  **  CORRECT 

liC  &EN  ** 

1  TO  CLEAR  TOCO 
130  30SU3  3230 
:?C  DIN  Nil  1000) 

200  DIN  8(10! 

21  DIN  311000! 

220  PRINT’  FINAL  TEST  -.lesson  21* 

230  PRINT 

240  PRINT'Thts  test  consists  of  10  Questions,  rou  *ust  get  70  oercent' 
250  PRINT'o4  thea  correct  to  pass,  (that’s  7  right  out  of  the  10  goes-* 
2iO  PRINT’tions/.  Use  only  capital  letters  in  vour  answers,  don’t" 

270  PR  I NT "include  extra  spaces  or  letters.  SCOD  LUCK’ 

230  PRINT 

270  INPUT'press  EN'ER  to  continue":  Ti 
300  SCSU8  3230 

310  PRINT’Whi ch  of  the  following  is  a  legal  filena*e’” 

320  °RINT 

330  PRINT'S  50DU1E.CN0  tin  CPN  or  Cro»e*co)' 

340  PRINT-B  TR!UNPH/i50  tin  TRS-801" 

350  PRINT’C  THEHAYDF.B21  Ur  CPN  or  Crowesco!" 

360  PRINT'D  SCORE '’/DAT  ‘in  7RS-90)" 

370  PRINT 

130  INPUT’EMTER  the  letter  ooposite  the  correct  answer'Ui 
390  PRINT 

400  IF  TI  =  “C*  THEN  SOTO  f70 

410  PRINT'HRCNG  -  the  correct  answer  is  C" 

420  PRINT*  Answers  A  and  8  filenaies  or  extensions  start  with' 

430  PRINT'  nuifcers  instead  of  alphaiet  characters.  Answer  D" 

440  PRINT'  has  a  non  alpha-nu«eric  character  in  it.' 

*50  PP!NT*  See  part  1,  ‘ilenases,  in  lesson  2.' 

4a0  3Qt0  4«m 
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470  PRINT'CORSECr* 

♦ao  8(1:  =  1 

490  PRINT 

500  INPUT* gross  ENTER*; T* 

510  S0SU8  3290 

520  PfilNT'Nhich  of  the  following  couands  Mill  load  a  file  called  ’LOVE"1" 
530  PRINT 

540  PRINT'ft  CREATE  ’CHfit<34) ’L0VE’CHRt(34> 

550  PRINT’S  RUN  ’CHRt(34f ‘LGVE’CHRt'34; 

540  ®RINT’C  LOAD  ’CHR$(34)“LaVE.&AS2*CHRt(34) 

570  PRINT’D  SAVE  ’CHRI'34/’L!}VE“CHR1(34> 

580  PRINT 

570  INPUT  ’ENTER  the  correct  ansaer*;7$ 

4 00  PRINT 

MO  If  Tt  =  *B*  THEN  SOTO  480 

420  PRINT’HRQNG  -  the  correct  an.saer  is  8“ 

u30  PRINT*  In  ansaer  A.  CREATE  is  not  a  BASIC  aord,  m  C" 

440  PRINT’  an  incorrect  extension  aas  used  (no  extension  aas’ 

450  PRINT’  needed),  in  D  the  prograe  aould  he  saved,  net  loaded.’ 

460  PRINT’  See  part  l.  SAVE,  LOAD,  RUN  of  lesson  2.“ 

670  SOTO  700 
630  PRINT’CORRECT’ 

430  3(21  =  1 
TO  PRINT 

’10  INPUT ’press  ENTER* 5 T* 

’20  SOSUB  3280 

’30  PRINT’REMark  statements  are  siailar  to  PRINT  stateaents,  except  that* 
740  PRINT’the  cotsuter  takes  less  tiee  to  print  thee.’ 

750  PRINT 

760  PRINT’S  TRUE’ 

TO  PRINT’B  FALSE’ 

780  PRINT 

7°0  INPUT ’ENTER  the  letter  oooosite  the  correct  ansaer’iTt 
300  PRINT 

ST  IF  Tt  =  *B’  GOTO  360 

320  PRINT’NRONS  -  the  correct  ansaer  is  B* 

830  PRINT’  RENark  statements  are  not  outout  to  the  screen,  they* 

S 40  PRINT*  are  only  used  for  proqraeeer  inforaation.  See  part  T 

350  SOTO  380 

360  PRINT’CORRECT’ 

970  8:3)  =  1 
330  PRINT 

590  iNPUT’oress  ENTER 'lit 
?0C  SGSU8  3237 

910  DRlNT’Nhich  of  the  following  exaeoles  is  INVALID'” 

920  PRINT 
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930  PRINT'A  INPUT  T»* 

940  PRINT 'B  INPl)T*CHR*(34)*ENTER  TOUR  NAME“CHR* ( 34} * ; NJ 
950  PRINT’C  INPUT  N* 

960  PRINT'D  INPUT'CHR* (34! “ENTER  YOUR  ASE'CHR* !34>*;N* 

970  PRINT 

930  INPUT'ENTER  the  letter  opposite  the  correct  answer*: T* 

990  PRINT 

1000  IF  T»  =  *B*  THEN  SOTO  1050 

1010  PRINT'tfROMS  -  stateeent  B  is  the  bad  one  because  it  tries* 

1020  PRINT*  to  load  a  nueeric  variable  with  string  data." 

1030  PRINT*  See  Part  1.* 

1040  SOTO  1070 
1050  PRINT-CORRECT* 

1060  2(4)  =  1 
1070  PRINT 

1080  INPUT’press  ENTER*; T* 

1090  G0SU8  3280 

1100  PRINT'Khat  coeeand  will  let  vou  put  your  praqna  into  pertinent’ 

1110  PRINT'storage  so  that  you  can  recall  it  later 

1120  PRINT 

1130  PRINT*#  SAVE* 

1140  PRINT'S  RUN* 

1150  PRINT'C  LOAD* 

1160  PRINT'D  STORE* 

1170  PRINT 

1180  INPUT'ENTER  the  letter  opposite  the  correct  answer";TI 
1190  PRINT 

1200  IF  T*  -  *A*  THEN  SOTO  1260 

1210  PRINT'NRONS  -  the  correct  answer  is  A" 

1220  PRINT*  RUN  causes  progra*  execution,  LOAD  loads  the  * 

1230  PRINT*  progra*  fro*  disk  and  STORE  is  not  a  BASIC  word." 

1240  PRINT*  See  part!.* 

1250  GOTO  1280 
1260  PR  I HI “CORRECT* 

1270  3!5>  =  1 
1280  DRINT 

1290  INPUT’press  ENTER*: TS 
1300  SOSUB  3230 

1310  PRINT'Hluch  of  the  ;ollowinq  statesents  is  legal"” 

1320  PRINT 

1330  PRINT*A  READ  Al  S»  Cl" 

1340  PRINT'S  DATA  A  8  C* 

1350  PRINT'D  READ  22,33.44* 

1350  PRINT'D  DATA  *CHRJ C 34 ) *BUI T *CHR* ( 34 ) *. *CHft* l 34> *F IRE’CHR* T 34 ) 
1370  PRINT 

1330  INPUT'ENTER  the  letter  opposite  the  correct  ans»er*:Tt 
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1390  PRINT 

MOO  IF  Tl  *  *D*  50TQ  M70 

1410  PRINT'NRQNG  -  the  correct  answer  is  D* 

1420  PRINT*  Answers  A  and  B  don’t  have  commas  between  variables.* 

1430  PRINT*  and  answer  C  tries  to  use  constants  instead  of* 

1440  PRINT*  variables  for  the  READ.* 

1450  PRINT*  See  part  2,  READ  and  DATA.* 

1460  SOTO  1490 
1470  PRINT-CORRECT* 

1480  8(41  *  1 
1490  PRINT 

1300  INPUT'press  ENTER*? T* 

1510  SGS'JB  3280 

1520  PRINT “READ  and  DATA  statements  halt  the  program  so  the  operator  can* 
1530  PRINT* insert  correct  answers.* 

1540  PRINT 

1530  PRINT’A  TRUE* 

1560  PRINT’S  FALSE* 

1570  PRINT 

1580  INPUT'ENTER  the  letter  opposite  the  correct  answer*;Tt 
1590  PRINT 

1600  IF  Tl  =  *8"  GOTO  1660 

1610  PRINT’NPONS  -  the  correct  answer  is  B* 

1620  PRINT*  READ  and  DATA  are  used  to  load  variables  NITHOUT* 

1630  PRINT*  stopping  the  program.' 

1640  PRINT*  See  part  2,  READ  and  DATA.* 

1630  GOTO  1680 
1660  PRINT'CORRECT* 

1670  8(7:  =  1 
1680  FRINT 

1690  INPUT'oress  ENTER" ? Tt 
1700  60SUB  3230 

1710  PRINT’The  IF  statement  is  a  CONDITIONAL  BRANCHING  statement.* 

1720  PRINT 

1730  PRINT’A  TRUE* 

1740  PRINT'D  FALSE* 

1750  PRINT 

1760  INPUT'ENTER  the  letter  opposite  the  correct  answer";Ti 
1770  PRINT 

1780  IF  TS  -  *A*  GOTO  1820 

1790  PRINT'NRONG  -  the  correct  answer  is  A" 

1300  PRINT*  See  Part  2.  IF  and  SOTO.* 

1810  SOTO  1840 
1320  PRINT 'CORRECT* 

1330  9(3;  =  1 
1840  PRINT 
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1850  INPUTVess  ENTER’! If 
1360  SOSOS  3230 

1870  PRINT ‘Ttie  following  progra*  will  NOT  have  an  output  -  TRUE  or  FALSE-” 
1830  PRINT 

1390  PRINT" 10  N  -  5* 

1900  PRINT* 20  GH  N  SOTO  40.60,30* 

1910  ?RINT"30  STOP* 

1920  PR  I  NT *40  PRINT  N* 

1930  PRINT'50  STOP' 

1940  PRINT‘60  PRINT  Si* 

1950  PRINT*?*:  STOP* 

19&0  PRINT'30  PRINT  N* 

1970  PR!NT*90  STOP* 

1980  PRINT 

1930  PRINT'S  TRUE* 

2000  PRINT*B  FALSE" 

2010  1NPUT*ENTER  the  letter  opposite  the  correct  answer*;:* 

2020  PRINT 

2030  IF  T$  =  *A*  GOTO  2090 

2040  PRINT  * NP.QNG  -  the  correct  answer  is  A* 

2050  PRINT*  Line  10  sets  N  to  5.  line  20  only  has  3  places” 

2060  PRINT*  to  go  to,  so  it  defaults  to  the  line  under  it.* 

2070  PRINT*  That  line  is  a  STOP  ' tit  stent.  See  part  2.  GOTO.” 

2090  GOTO  211) 

2090  PRINT’CORRECT* 

2100  3(9'  =  1 
2110  PRINT 

2120  !NP'JT*p-ess  ENTER"; Ts 
2130  S3SU9  329*-’ 

2140  PRINT*Tve  following  program  will  have  an  output  -  TRUE  or  FALSE-1” 

2150  PRINT 

2160  PRINT'10  N  -  3“ 

2170  PR  I  NT *20  IF  N  =  3  THEN  SOTO  40“ 

2130  PRINT “ 30  PRINT  N* 

2190  PRINT* 40  ,N  -  4* 

220D  PRINT “50  END* 

2210  PRINT 
2220  PRINT 
2230  PRINT'A  TRUE* 

2240  PRINT'S  FALSE" 

2250  PRINT 

2260  INPUT "ENTEP.  the  letter  opposite  the  correct  enswef’lTI 
227)  PRINT 

228*1  IF  T*  =  *B"  6OT0  2340 

2290  PRINT’NRQNG  -  the  correct  answer  is  S" 

23)0  PRINT"  Line  10  sets  N  to  3.  line  20  causes  the  proprat  to* 
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2310  PRINT*  go  to  line  40,  then  50.* 

2320  PRINT*  See  part  2,  IF.* 

2330  SOTO  2350 
2340  PRINT-CORRECT* 

2350  QUO)  =  1 
2350  PRINT 

2370  INPUT'oress  ENTER*; T$ 

2330  SOSUB  3230 
2390  FOR  l  »  1  TO  10 
2400  V  =  Y*QU) 

2410  NEXT  X 

2420  PRINT'You  have  finished  the  test,  cut  oh  10  possible  correct  answers* 
2430  PRINT'vou  scored  *YV 
2440  PRINT 

2430  IF  ¥  '  a  THEN  PRINT'YOU  HAVE  PASSED* 

2450  SOSUB  3110 

2470  IF  Y  >  a  THEN  GOTO  2550 

2430  PRINT'YOU  HAVE  NOT  RECEIVED  ENOUGH  POINTS  TO  PASS* 

2490  PRINT 

2300  PRINT'YOU  SHOULD  RETAKE  LESSON  2" 

2510  PRINT 

2520  PRINT'You  aili  be  returned  to  the  Menu.* 

2530  PRINT 
2540  SOTO  3320 
2350  PRINT 

2550  PRlNT’Do  von  aant  vour  score  recorded  on  a  penanent  hie’’* 

2370  PRINT 
2530  PRINT'A  rES* 

2390  PRINT'S  NO* 

2500  PRINT 

2510  INPUT*Nhich*:T$ 

2520  IF  T$  =  *S*  THEN  SOTO  2920 
2a30  SOSUB  3230 

2540  PR  I  NT “ To  record  vour  score,  ae  *ust  open  a  file  and  put  vour  rate* 

2530  PS  I  NT  * i n  it.  Therefore,  surprisingly,  ae  need  vour  na»e.  If  vour* 
2550  PRINT“na*e  is  not  unique  anong  the  students  likelv  to  take  this  test.* 
2570  PRINT'olease  contact  vour  test  eonitor  for  an  identifying  aord  tna:' 
2s80  PR!NT*aill  aafe  vou  unioue.  Then  enter  that  aord  beloa.” 

2590  PRINT 

2700  PRINT"! f  ;cu  have  alreadv  entered  a  score  previously,  be  sure  to* 

2710  RRlNT'enter  the  sase  nase  vou  used  before,  ‘.use  ail  capitals:* 

2723  PRINT 

2’30  INPUT 'ENTER  vour  aord  cr  naae  ncu'lTI 
2740  0PEN’;*.;.*SCDRE2* 

2 ’30  i  -  0 

2’aO  IF  EOF .  1 >  THEN  GOTO  2320 
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2770  t  =  1*1 
2730  INPUT#1,N*U,» 

2790  IN?UT#I , S : X > 

2800  I?  NttXl  =  T$  THEN  6GT0  2970 

2310  GOTG  2740 

2320  CLOSE 

2330  1  =  itl 

2840  Nidi  =  T$ 

2330  SiX)  =  V 

2840  QFEN'Q\1.*SCGRE2' 

2870  FOR  X  =  1  TO  i 
2330  PRlNT*l,N$!l*i 
2390  PRINT*!. SiN) 

29)0  NE  XT  * 

2°lv  PRINT 

2°20  PRINT’Tou  are  non  qualified  to  go  to  LESSON  3.  however,  vou  will* 

2930  PRIhT’fjrst  get  a  hcsework  assignaent  '  The  hotewort  is  in  a  " 

2940  PRINT'proqraa  »odule.  If  vcu  don't  want  the  assignaent,  vou  ■av* 

2950  PRINT“go  to  the  NENU  instead.* 

2940  GOTO  3250 
297o  sex;  =  y 

2«3D  IF  ECF'l)  THEN  CLOSE.'SOTQ  3020 
29 50  I  -  !♦! 

:m  imm,  utai,  si v 

3)10  GOTO  2930 
3020  OPEN'D",!. "SC0RE2* 

3030  FOR  U  s  1  TO  I 
3040  PFINTI1.N*  X! 

3050  PRINT!  1 .  S W) 

3060  NEU  N 
3070  PRINT 

3080  PRINT'Ypu  aav  now  take  LESSON  3.  You  will  be  returned  to  the  NENL1' 

3090  PRINT' ‘rua  where  vou  lav  go  to  LESSON  3  or  quit." 

3100  SGT0  3320 

31 1C  IF  Y=10  THEN  RETURN 

3120  PRINT'VCU  NEED  IHPROVENENT  IN  ^E  FOLLOWING  AREAS 1‘ 

3130  PRINT 

314"  IF  Oil!  =  0  THEN  PRINT*  part  1.  Filenaees' 

3150  IF  Q ' 2)  =  0  OP  Qi 3)  =  0  THEN  PRINT'  part  1.  SAVE.  LOAD.  RUN* 

314)  IF  6(3)  =  0  THEN  PRINT*  oart  1.  RENarks* 

3170  IF  9i 4 i  =  i  THEN  PRINT'  part  1.  INPUT  Statements' 

3130  IF  Q f a )  =  u  OR  Q<’!  =  0  THEN  PRINT'  part  2.  READ  ano  DATA  Stateaents" 

3190  IF  9!S:  =  0  OR  5(91  =  0  THEN  PRINT'  oart  2,  IF  Stateaents' 

320'J  IF  8(10)  =  0  THEN  PRINT'  part  2.  SOTO  Statetents' 

3210  °RINT 

3220  TNPUT'oress  ENTER': Tl 


H 5 1 1 r. q  ui  Fraoraa  ' TEST2 ’  ***** 


3230  sosus  3:so 
::40  RETURN 
;;50  pen  f* 

jLiJ  REN  **  this  subroutine  clears  the  screen’ 
3270  REN  ** 

3280  FOR  J  1  1  TO  24 
3290  OR [NT 
3300  NEXT  X 
3310  RETURN 
3320  PRINT 

3330  INPUT’oress  ENTER  to  return  to  the  MENU"; T* 
3340  RUN  ’NEW." 

3330  PRINT 

33a0  INPUT ’Oo  you  *ant  toe  assignment  (Y.WsT* 
3370  IF  Tt  =  •»*  THEN  SOTO  3340 
3330  RUN  *HN2‘ 
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:0  RES  M  THIS  PROGRAN  STARTED  ON  1  MAY  1933 
20  REM  **  AUTHOR:  CAPTAIN  DANNY  J.  CREASAN 
30  REM  **  TITLE:  LESSON  3 
40  REM  ** 

30  REM  ** 

40  REM  ** 

70  REM  m 
30  5QSUB  5590 

=>0  PRINT-LESSON:  BASIC  3  VERSION:  1  AUGUST  33 

100  PRINT 

no  PRINTLINE  REQUIRED  TO  COMPLETE  LESSON:  Less  thin  one  hour* 

120  PRINT 
130  PRINT 

140  PRINT ’AUTHOR:  Cast  Danny  J.  Creagan’ 

150  PRINT’  Air  Force  Institute  of  Technology* 

ISO  PRINT 

170  PRINT-OBJECTIVE:  To  teach  the  student  ho*  to  use  LOOPS  and  ARRAYS. * 

180  PRINT 

190  PRINT 

200  PRINT 

210  PRINT 

220  PRINT 

230  PRINT 

240  iNPUT’sress  tne  ENTER  key  to  continue*;!* 

250  6QSU3  5590 
240  S0SU8  5440 

270  PPINT’A  I’»  taking  this  cart  in  its  entires/. * 

280  PRINT'S  I  wish  to  revie*  selected  areas.* 

290  PRINT’D  I  aant  to  go  to  the  second  oart.’ 

300  PRINT'D  I  wan*  to  return  to  the  Menu.* 

310  PRINT 

320  INPUT 'Press  either  capital  A,  B.  C,  or  D  and  then  press  ENTER' : T* 

330  IP  ■*  --  ‘O'  SOTO  6370 

340  IF  Tt  =  *C*  SOTO  6380 

350  IF  Tt  =  'B*  GOTO  460 

360  IF  ft  "A*  SOTO  270 

3'0  GOSUB  570 

330  GQSLB  1090 

390  GOSUB  1450 

400  SOS'JB  2240 

410  GOSUB  3430 

120  °RINT 

430  PRINT 

440  PR INT'Goi r.q  to  second  half  of  lesson  3  -  Nait  one  aoeent’ 

450  GOTO  4330 
460  GOSUB  5590 
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470  SOSUB  5680 
480  PRINT 

490  PRINT'Please  tvoe  in  the  nuaber  beside  the  area  you  wish' 

500  PRINT'to  revie*  (1  through  51  and  then  press  ENTER  -  press  0  and* 

510  PRINT'press  ENTER  to  return  to  the  flenu.  * 

520  PRINT 

530  INPUT’Nhat  is  vour  choice'iN 

540  IF  N  -  0  SOTO  6370 

550  CN  N  SOSUB  570  ,1090  ,1450  .2240  .3430 

560  SOTS  460 

570  SOSUB  5590 

580  PRINT'  Introduction  &  KILL  Statenent' 

590  PRINT 

600  PRINT'Bv  no*  you  should  ha.e  saved  a  fe*  seall  prograes  to  disk,  and" 
610  PRINT'vou  should  have  practiced  all  the  coaaands  »e  have  discussed  to' 
62 0  PRINT'date.  IT  you  have  wondered  ho*  to  get  rid  of  a  file  that' 

630  PRINT'vou  were  done  with,  or  ha»e  sistakenly  saved  and  didn't  need" 

640  PRINT'one  of  .our  prograas,  the  next  frase  will  be  of  service  to" 

650  PRINT*,' ou.  It  describes  the  KILL  statement.  Ne  have  purposeiv* 

680  PRINT'put  the  KILL  stateaent  in  the  third  lesson  because  it  is  a' 
a’v  cRINT'dangerous  coaeand  that  can  eliminate  valuable  and  ir'eolacable' 

: 80  PRINT’data  or  prograis  if  used  incorrect;.,  Sv  no*  you  should  fee!” 
890  PRINT'coefortable  with  sc.ie  cf  the  coa, sands  ana  you  shouldn't  *ake“ 

7C9  PRINT'the  aistake  of  KILLing  soaeone  else's  files,  or  vour  own  Dv“ 

'10  PRINT'accident.  Reaeater.  KILL  does  mst  what  it  savs.  it  KILLS' 

720  FRINT'f l les' * 

'15  PRINT 

730  INPUT'press  ENTER  to  learn  about  tr.e  KILL  coaaand'ilt 
740  SCSJ3  5590 

’50  PRINT'  Introduction  t  KILL  (cont)' 

'60  PRINT 

770  PRINT'The  fcraat  for  the  KILL  ccaaand  .si* 

780  PRINT 

790  PRINT'KlLL  “CHRt ( 34) “f ilenaae.ext'CHRt > 34) 

800  PRINT 

310  PRINT* Nou  aust  enclose  the  filenaae  m  Quotation  aarks.* 

312  PRINT'The  extension  is  only  needed  when  the  original  file  had  one.’ 

320  PRINT 

830  PRINT'Once  this  coaaand  is  entered,  the  file  will  be  reaoved  '.unless' 
840  PR I.VT ’protected  bv  passwords  -  vou  can  learn  aoout  passwords  fro*' 

950  PRINT'your  svstea  sanual).  If  the  file  is  reaoved,  there  is  very* 

360  PRINT'little  charce  of  recovering  anv  of  vour  data.  In  soae  cases" 

370  PRINT ’an  advanced  prograaaer  can  retrieve  data  froa  a  filled  file* 

330  SR I NT 'but  the  orocess  is  difficult  and  often  fails.  BE  CAREFUL' ’ 

3°0  PRINT 

900  INPUT'press  SINTER* ; Tt 


-  01:02 
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910  SOSUB  5590 

920  PRINT*Nhich  cf  the  following  statements  is  legal'” 

730  PRINT 

940  QRINT*A  KILL  STUPID' 

950  PRINT'S  HILL  “CHR$;34l*STUP10.123*CHRS!34) 

9fiO  PRINT’C  HILL  J  CHR*  1 34 » *ST  UP  I D .  BAS  1 34 ! 

970  PRIST 

980  iNPUT'press  the  letter  oooosite  the  correct  answer  and  press  ENTER": T$ 
990  PRINT 

1000  IF  T1  -  *C*  SOTG  1030 

1010  PRINT'NRCSG  -  the  correct  answer  is  C" 

1020  SOTO  1040 
1030  PRINT-CORRECT* 

104o  PRINT 

1050  INPUT’press  ENTER*; Tl 

:0A0  SOSUB  5900 

1070  IP  TS  =  *8*  GOTO  570 

1030  RETURN 

1090  GOSUB  5590 

1100  PRINT*  LOOPs  •: Intro)* 

1110  PRINT 

1120  PRINT'One  at  the  sost  ecciting  aspects  of  coaouter  prograas  is  their1 
1130  PRINT’atility  to  patiently  check  and  recheck  data,  ano  to  tirelessly’ 
1140  PRINT'calculate  figures  and  coluans  of  nuabers.  (the  exciting  part* 
1150  PRINT"i5  that  YOU  don't  have  to  spend  hours  doing  drudgery  when  the* 

1  IsC  PSINT’caaputer  can  spend  unutes  or  seconds  doing  the  sale  job)* 

1170  PRIN’*0ne  of  the  tasks  of  the  orograaaer  is  to  efficiently  use  his* 
1130  PPINT'coaouter  ae#or«  tc  prograi  the  tiae  consumg  tas<5.‘ 

1190  PRINT 

1200  INPUT’press  ENTER*: 71 
1210  SOSUB  5590 

1220  PRINT'Supoose  vou  wanted  to  display  3  coluans  of  figures,  the  left* 
1230  PRINT'coluan  would  be  integers  fro*  1  to  3,  the  aiddle  coluan* 

1240  PRINT'woulo  be  the  square  of  the  figure  in  the  adjacent  first  coluan,* 
1250  PRINT'and  the  third  cciuan  would  be  the  square  of  the  figure  in  the* 

* 260  PRINT*ad;acer.t  aiddle  coluan.  It  would  look  like  this:* 

1270  PRINT 

1290  FOR  «=  1  TO  3 

1290  PRINT  INT!tl.INT‘r::,INT(r2*r2i 
1300  NET’  S 
1310  PRINT 

1320  IffPUT'oress  ENTER*: T! 

1330  SOSUB  5390 
13*0  FIR  1  =  1  TO  3 

1330  PRINT  INI  i X ) ,  INT •'  t '2) .  INI  !X*2*t*2) 

13 SO  NEXT  X 
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1370  PRINT 

1330  PRINT'If  you  were  to  write  seoarate  print  statenents  for  these* 

1370  PR!NT"calculat:ons,  you  would  have  to  write  at  least  8  lines  of  code." 
1400  PSlNT'Using  LQOPs,  vou  can  calculate  this  column  of  figures,  and’ 

1410  PfilNT'rii sclav  it,  m  three  lines  of  code!' 

1420  PRINT 

1430  INPUT  *  In  the  next  sections  we  will  learn  this  and  tore. ..press  ENTER* ; T  t 
1440  RETURN 
1450  G05UB  5590 

1460  PRINT"  COUNTER  variables' 

1470  PRINT 

1430  PRINT'The  first  step  in  learning  about  loops  is  to  understand  COUNTER" 
1490  PRINT" variables.  A  COUNTER  is  a  variable  that  is  used  to  veep  tracK" 
1500  PRlNT’of  the  nuiber  of  tues  a  progra*  executes  a  line.  It  is  • 

1510  PRINT’aften  used  m  conjunction  with  an  If  THEN  stateeent.  For' 

1520  PRINT'exaaple: “ 

1530  305'JB  6050 

1540  ’RINT'Ihe  value  of  2  after  RUNning  this  orogra*  is  10.' 

1550  PRINT 

1560  INPUT’oress  ENTER  * : T  $ 

1570  GCSUS  5590 

1580  PRINT'  COUNTERS  (cont) ' 

1590  PRINT 
1400  G0SUB  4050 

1410  PRINT'The  COUNTER  variable  is  2.  It  is  INCREMENTED  ever-,  t:*e  line* 

1620  PR  I  NT  "40  sends  control  to  it.  Nhen  the  CONDITIONAL  stateient  i:.' 

1430  PRINT"! me  30  discovers  that  2  is  equal  to  10.  it  executes  the  STOP. " 
14*0  PRINT’At  the  end  cf  the  procra*.  2  is  equal  to  10.* 

1450  PRINT 

14oO  INPUT’cress  ENTER  * ; T  J 
1:70  eOSUE  i'S1’' 

1430  GCSUf  4050 

1490  PP'.T’Oo  vou  see  what  would  happen  if  we  didn't  include  the  IF' 
rOO  PRINT'scateaent"  The  procra*  would  loot:  like  this:' 

1710  PRINT 
1722  PRINT* 10  2=0' 

VZ'S  PR! NT "20  2=2-1' 

I" 40  PR  I  NT  *  30  GOTO  20" 
rso  PRINT 

1’40  PRINT'The  orogra*  would  ’■■ever  stop.  It  would  be  cauqr.t  in  an  ENDLESS* 
1770  sR1nT*l20P.  Ne  have  *an,  ter*s  for  this  c;»»on  »istake.  Sc*e" 

1 73)  PPlMi’exaMies:  tCCrED  UP.  HUNG,  and  ***  DUM*.  vou  aid  it  aoair  ♦♦♦* 
:’g3  ORINT 

: '90  UtPuT'oress  ENTER": Tt 
130”  SGSU3  55*0 

:2:  ?*:n”  CCUNTERs  cart:' 
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PRINT’ If  your  orograi  ever  gets  hung  uo.  vos  ear  nave  to  tvse  * 
PS’NTVCjMTROL/  C  uf  CM  or  Craeeeco).  or  '.BREAK;  iif  TRS-80;* 

PRINT" In  sate  ext'eae  cases,  vou  *av  have  to  reset  the  svstee.* 
FRINT’On  the  TRS-80.  the  RESET  button  is  the  red  recessed  Sutton  or.’ 
F'5lN7’the  uooer  right  of  -our  keyboard  (left  rear  if  using  a  NQDEL  li‘ 
aRINT“CAl!TICN.  if  vets  are  using  this  crograi  on  a  aulti-user  svstee. * 
FR’NT’sucn  as  Craaeico  S/ste*  II.  23  NOT  RESET  the  s.stes.  let  the* 
FRINT“ocerator  help  vcu  fix  the  oroble*.  if  vou  are  using  a  single' 
fRINT’user  svstee.  such  as  a  7SS-30.  iter.  .RESET  oil]  ncri  as  an  exit' 
FRIXT’froa  the  lacked  ui  prcgraa  '.but  trv  '.BREAK-  first;.  If  vou  use' 
PRINT  ’either  RESET  or  CONTROL:  C,  the  svstee  mil  take  vou  to  the' 
'Sr/’CSaSAND  node,  and  vou  mi  I  i  have  to  re".r.it:s!i:e  BASIC.* 

PRINT 

INFO’  ‘cress  ENTER’;  Tl 
snciie 

RRINT'Sfcjt  is  the  COUNTER  variaole  m  this  arogra*'” 

PR  IN’ 

-RINT’IC 
PRINT '20  <=!•’ 

print'::  t-t*r 

PRINT "41.'  IF  I  •  ‘  l  THEN  i  =  2* 

F'RINT’IJ  IF  (  s  I  THEN  STOP" 

-RINT“iC  ;RlNT  2" 

-FlS’-’-l  C-OTO  Of 
--INI'S'.  ENT" 

-•1NT 

'-PINT’S  i  :s  the  COUNTER’ 

:®INT’B  ;  is  the  COUNTER’ 

FRINT’E  BOTH  are  COUNTERS,  but  l  mi  1 1  control  the  orograa" 
c'CIs: 

lNPl"’;ress  rs  letter  ocoosite  the  ccrrect  ans «er  ana  press  ENTER" 5 T* 

:  - .  N T 

if  j  =  ■?  "hen  s::g  cis: 

IT'aFlNO  -  tr.e  correct  answer  is  B" 

;; 3 

:::nT400:’E0'  -  that  sncas  goat  understanding  of  the  onnciole" 

-•IN’ 

IN'C*'3rsss  E.VEF’;TI 


I-  '$  'B"  50 TC  :4Mi 

’EiyPN 

SQSuB  I;’’" 

-°!NI 1  -OP  -  NEr  Statesents' 

:RINI 

PRINT  I"  the  or;..ous  discussion  o*  counters.  *e  shoved  .Oj  'hat  ae" 


i  j  ■ 


► 


T 
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j  .  .  v  ■'  3  j 


:>i:02:33  ‘ 


2230  ?siNT*:ested  a  courts'’  mth  an  1?  statement  to  see  if  it  n.ac  rsa:ned' 
22,,II  PR  I  ST  *  a  cesired  1 5  = i .  ;f  it  nad.  then  *e  «er.t  to  another  part  of  the' 
2210  ?8!ST*pr;gras.  or  STGRsed.  There  is  a  set  a*  statelier, ts  SASIC" 

23!"  Pfilr»r*t!>a:  lets  us  s r.crien  the  st assents  need ea  tc  duplicate  this' 
2312  :EIN7*tipq  of  srsqnt.  The  set  af  stateeents  is  Called  FOR  -  NEXT.' 
233?  ?S:»T 
;;o;:  p?;nt 

233C  INPUT 'press  EN’ERTI 
23s1.  SCSI'S  !5Ri 

”'C  :RINT"  FOR  -  NEXT  iccnt)* 

2230  5GSU3  at 0 

2230  PRINT” The  two  aroqrais  above  mi!  armt  exactly  the  saee  cutset. ' 

2-2 j  FRINT'Ths  22JNTER  i::o  reeuires  so re  statements  and  is  not  as* 

P»:nt 'efficient  as  the  FOR  NEXT  loos.” 

2420  ;c:n' 

24 Tv  iN?’.T”orsss  ENTER"!  '£ 

244-:  3CSUS  5!«0 
24o)  30SUS  si SC 

24;;.  r®INT*>.me  13  or  the  FEF.  JtExT  lew  mttiai::es  i.  tne  saae  *»-•  tr.at 

24';  PRINT ’lines  10  and  !•;  of  the  CHUNTER  l  sob  do.  Tne  :C:.  NEiT  loco  sees* 

2430  RRIST'Ime  10  as  To  doing  to  star  a  loo:,  i  is  tne  count  s’-,  i  ai  i  2  “ 

2440  PRINT *Dea i n  «:tfi  i  =  !  ard  user  t  is  3RE.4TES  than  3  I  will  C’2T2  tne* 

251 1  PRINT  'statement  that  is  after  the  NET  stateaer.t’.* 

..  w . »  rt  j  j  i . 

252  INTT-oress  EN’EFTI 
253C  S03UB  55=0 
25- j  sjSDs  sis; 

255-1  PRINT  .-re  30  of  tne  COUNTER  load  and  line  20  or  the  F3f  \£xT  .oar' 
25s3  CRINT* are  tne  sase  and  cer‘ors  the  saae  functicr. • 

25*0  PSiNT'Sote  that  the  PRINT  state  sent  »as  mcer.ied  a  new  ooaces  in  re  ' 
2550  PRINT ‘eCR  nE'T  Idea,  "his  lets  re.  see  the  loan  structure  better.' 
2590  PRlsrvsi;  should  do  that  in  ,-cur  own  oracraasiog.  too.’ 

2hvi  RRIN* 

2:1)  :SR’J3*;ress  E:iT2F";7S 
2t 33  305na  55s) 

3:22  30505  2.:5 j 


c** 

?r 

M 

'The  IF  statsae?: 

*  k  “  *' 

FR 

NT 

'has  reached  3. 

>.  2  C  ." 

-ft 

NT 

“'ooc  cecause  th 

2  2  7 .< 

:= 

N* 

"Line  30  af  the 

*  w  ■ 

??. 

NT 

'2-273  in  line  50 

*  4.  2 

2  V 

NT 

' INCREMENTS  x  an 

k  .  . 

■  » 

a  < 

J  • 

•  . 

2  j 

us 

ce; 

.  _ 

2  2 

•  -  " “  ~  ‘  a  . 

1""'. 

\T 

’I  -c;NT  1 

#2: 


til 


*****  Li st: nc  of  Prccra*  'LESSGN3'  ***** 


3»?0  iJiP'JT" areas  ENTER": '5 
3200  oOS’JS  IZV 

3210  PSINT'The  SEiT  stateaen:  is  the  use  as  an  uCONOITIGNfiL  BRANCHING 
3210  FR;,NTsStateaent.  It  tranches  tc  tfie  r.eit  line  anser  the  FOR  state 
3330  :RINT*aent." 

3240  rr:nt 

323-J  PRINT”  Is  the  aeracraan  a:o,-e  TREE  cr  FALSE'* 

3340  cRIh7 

::::  :,=  :nt-a  tree1 

3330  5R!*T'S  FALSE'’ 

3290  P=INT 

33 X-  INPUT "ENTER  the  letter  wacsite  the  correct  answer1  STS 
33: 0  C'RIKT 

3330  IF  TS  =  *8*  THEN  GOTO  33?-) 

333.'  PRINT  aRCNG  -  the  NEXT  stateaent  is  LNC3NCITIQNAL,  i_:  it  tranches' 
3340  'PINT*  t:  the  SANE  line  as  the  FOR  stateaent.  It  aiss  inert 

3350  RRINT*  setts  tie  van  sale  tetore  tre  :3R  state-sent  tests  it 

3Tc3  S3'3  3  33-1 
:::>  -Rivzowy 
::■<  crint 

I".'-  INRE' "tress  ENTER ‘STS 
34.-:  3QS JS  -33": 

31! :  1=  I  =  '  THEN  GETS  2340 

343:  RE" CRN 
34  30  SCSI'S  55«0 

3440  RRiNT*  Ad.encea  FGR  NEf 

345  ,'  ‘PINT 

34:0  PRINT'TI  -2P  >  s  ;  t;  jj  jTEF  3* 

34f  PRINT’3)  PRINT  » ’ 

3430  rRIST"30  NExT  t* 

3.4-0  FPIN' 

350-1!  f«IN’*Gi.es  as: * 

35IC  PRINT 

353)  F2R  J  =  1  TC  1  -  STEP  3 
1533  PRINT  ; 

354')  NE*7  1. 

"ec  '<  rQ’  ».T 

J  aw  j  1  • .  I 

35:  iNPL'T'Irterestna,  isn’t  if  .  cress  E‘iTER  ft*  an  enlanaticn 

•  ■■  3 C S U B  553  ’ 

35S-0  P°:NT‘  Advanced  ;0R  NEXT* 

T53:  PRINT 

r  '  rn;  ,  =  ;  •;  •  <;  :;c: 

T:1V  °RlNT’3.  --IN!  V 
’!>::•  F;INT’3.  NEX’  x  • 

3:31  Pf 

1:4-;  :  - 1  ■; T '  *  •-  e  33S:  ,c-z  1  tie  -IP  stateae-t  ca-itec  the  .alas  at  x  he’ 
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.>  >  JV 

"40 

.”50 


3770 

:3j.’ 

:a:-: 

7330 
3340 
3350 
3360 
3370 
3S30 
33  =  0 
:=oe 

3?;0 

3730 

3*43 

3’50 

7760 

3770 

3730 


4730 
4  3  SO 
4730 
4030 
4040 
4350 
4-050 
4070 
4030 
<■;='} 
4: . : 


3RINT"ji  increaented  «/  3  instead  of  1.  The  cutout  of  1.3.5.’.?  .as* 
FRihT'ccrrec;  Because  the  NEiT  statement  is  the  stateaer.t  that  " 
FRIM'actualD  increaents  the  value,  so  the  first  t.ise  through.' 
FRIST*.  was  equal  to  1.  the  nett  tiae  through  it  was  equal  to  3.  etc.' 
57:ST 

.'iPu  .  'cress  u.NTEh'lTI 
uuSuu 

:RIh"  "  Advanced  FOR  34EXT ' 

PRINT 

FSINT*:?  FOR  I  =  10  to  1  S’EP  -3* 

PRINT';-)  PRINT  r 
PRINT *30  NEXT  V 
PR  IN’ 

6RIST"3ivss  usl 1 
PRINT 

"OS  *  -  I ■)  TO  1  STEP  -2 
PRINT  1. 

NE!T  < 

PRINT 

INPL'T’oress  ENTER  for  emanation"; TJ 
SQSUB  5573 

PRINT'D  POP  1  =  10  to  1  STEP  -2* 

PRINT* 10  PRINT  T 

print*’)  nesp  r 

“PINT 

:'?!NT“!n  this  case.  *e  STSFsed  OQtoN  instead  of  uo.  Notice  that  the' 
PRINT5-. r st  ,-alue  of  the  FOP  stateeent  is  the  largest  value.  It* 
PRINT "would  hot  late  sense  to  scecifv  a  negative  STEP  and  give  the' 
PRINT'’ ranee  of  a  cositive  STEP.  Per  esascle:* 

PRINT 

PRINT'D  POP:  r  -  I  to  13  STEP  -l4 
DRiNT 

F,RINT'”'h;s  doesn't  aar.e  sense,  and  would  no:  worn.' 

FSINT 

INPUT 'press  ENTER"; 7 f 
SflSUB  5590 

P5INT*vcu  *a>  include  a  CC.R  NEXT  stateaent  within  another  FOR  NEXT' 
PR.INT'statesent.  If  veu  do.  it  is  called  NESTED  looping," 

:RINT'For  eraaole:" 

SQSUB  62'50 

?RINT‘lSe»cre  »e  explain  the  cutout,  do  vou  see  how  we  indentec  the'' 
■RINT'stateaents  within  the  first  loop,  and  then  further  indented” 
PRINT'the  statesents  within  the  second  loco’’  It  sates  the*  easier" 
PRINT'D  understand  tanc  etoiami." 

PRINT 

INPUT  'cress  3NTE:  <■:'  output';  T$ 
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4110  305U3  5390 

4120  PRINT*  Advanced  FOR  NEXT  (NESTED  LOOPS; * 

4130  PRINT 
4140  FOR  X  =  1  TO  2 

4150  FOR  7  =  1  TO  2 

4 1  SO  PRINT  X,f 

4170  NEXT  Y 

4190  NEXT  X 
4190  PRINT 
4200  GOSUB  3290 

4210  PRINT *Trv  to  figure  now  toe  proqraa  produced  toe  ccluans  aoo.e  it* 

4220  INPUT "and  then  press  ENTER* * T $ 

4230  6GSU3  3590 
4240  50SUS  S290 

4230  PRINT  'Qn  the  first  pass  through  the  prccraa,  the  FOR  NEXT  loop  for* 

42iO  PRINT"!  *as  set  up.  and  control  passed  to  the  lines  petNeen  F2R  X  =* 

4270  PRINT"!  to  2,  and  NEXT  X.  These  lines  happened  to  Se  another  loop* 

4290  PRINTVith  the  variable  y  as  the  P2P  NEXT  lanabie.  Hhen  the  Y  FOR’ 

429)  PRINT-NEXT  executed  the  first  ti»e.  X  *as  equal  to  1  and  1  *as“ 

4300  cRINT*or:nted  taice.  once  as  a  1  and  once  as  a  2.  Nhen  the  f  loop" 

4310  PRINT'fimshed,  the  NEXT  X  stateaent  causes  control  to  SOTO  line* 

4320  PRINT  *  10  again.  The  process  aas  repeated,  hut  X  no*  «as  equal  to  2.' 

4330  PRINT 

4340  INPL'T'cress  ENTER". TJ 
4  330  SGS'JB  3590 
4340  FOR  X  =  1  TO  2 
4370  m  t  -  1  TO  2 

4380  PRINT  X.r 

4340  NEXT  V 

4400  NEXT  I 
4410  PRIN- 

1420  PRINT" 10  FCR  X  =  I  TO  2" 

4430  PRINT *20  FOR  Y  =  1  TO  2* 

4440  PRINT*30  PRINT  X.Y" 

1450  PR  I  NT *40  NEXT  Y* 

4460  PRINT"30  NEXT  X* 

4470  PRINT 

4490  INPL*“Can  vou  xiqure  it  out  notT  Think  about  it  and  then  press  ENTER*;!* 
4490  SDSUB  3590 
4500  GOSUB  62?0 

4 510  PRINT’The  aost  ccaton  aistake  that  orograaaers  sake  when  using  nested" 
4320  PPINT’Ipcos,  is  aisladeling  the  NEXT  stateeents.  Notice  that  the" 

4330  6R!NT’NEXT  stateaent  for  the  <  variable  is  placed  before  the  NEXT  X" 

4340  PRINT'stateaer.t." 

435)  PRIN* 

43o0  INPUT "or ess  ENTER*; T* 
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4570  eOSUB  5570 

4580  FRINI’Tne  faraat  tor  nesting  loops  is:' 

4 5 5 0  PRINT 

ie)0  PRINT'lCOP  1  '.tor:* 

*610  PRINT1  LOOP  2  (Par  1  * 

4620  PRINT'  LOOP  3  (Par! ' 

4a30  PRINT*  LOO?  3  :r,ext>“ 

4640  PRINT'  LOOP  2  Inext)* 

4a50  PRINT 'LC0C  1  ne*t) “ 

46a0  PRINT 

4t?0  c,RINT*Notice  that  .cu  «ust  sack  out  o P  a  nest  in  reverse  order.' 
*630  PRINT 

4690  INPJT'press  ENTER1: Tt 
4700  GOSUB  5590 

4710  PRINT* I s  the  Pollening  prograe  valid'* 

4720  PRINT 

4730  PRINT* 10  "OR  X  =  1  to  200* 

4740  PRINT "20  FOR  l  =  I  to  2* 

4730  PRINT'30  PRINT  M* 

4780  PRINT'40  NEC  21 
4770  PRINT'50  NEC  <* 

4730  PRINT 

4790  PRINT 'fi  VES  it  is  a  good  prograa* 

4300  PRINT'S  NO  it  is  not  a  valid  progra*1 
4310  PRINT 

4920  INPUT "ENTER  'he  letter  opposite  the  correct  answer';!* 

4330  PRINT 

4840  IF  T*  =  'A*  GOTO  4335 

4350  PRI.*;T"i»RONC’  -  the  correct  answer  is  4.  There  is  nothing  wrong1 
43a0  °RINT*  with  the  progra*.1 

43''}  GOTO  4900 
4390  PRINT’CORRECT' 

4390  PRINT 

49Q0  JNPLT'Dress  ENTER1;!* 

4910  30303  5590 

4920  PRINT’S! ve  the  (irst  stateient  of  a  FOR  NEXT  loop,  that  will1 
4930  PRlNT'cause  tne  iooo  to  increaent  the  variable  I  frea  one  to  20  in" 
4940  PRINT'steps  of  2.  Use  10  as  /our  line  nusber  and  leave  one  soace* 
4950  PRlNT'between  all  words.  nuebers,  and  variables.1 
4965  PRINT 

4970  INPUT ‘SNTE*  .our  answer';!* 

<9gr.  oct^T 

499C  If  T*  =  *15  for  I  =  1  TO  20  STEP  2*  GGTO  5030 
5300  PRITCNRONS  -  the  answer  is:* 

SC  SO  F 0 1 74 T "  10  FOR  !  =  1  TO  20  STEP  2* 

302 7  SOTS  304, 
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*****  Listing  of  Pragrai  'LESSGNj’  met  07:10/83  -  01:02:38 


3030  PRINT-CORRECT1  -  You  are  a  dinner'* 

5040  PRINT 

3250  INPUT'press  ENTER" iTi 
3060  SOSUS  5590 

3070  ?RINT*Is  the  following  prograa  /alid'7* 

5030  PRINT 

3090  PRINT*SO  FDR  X  -  1  TO  2* 

5100  PRINT-20  FOR  I  =  1  TC  5* 

5110  PRINT-:C  PRINT  -DHRI134) 'This  is  the  last  quest  ion “CHRS ( J4 ) 

5120  PRINT-40  NEXT  I* 

5130  PRINT-50  NEXT  X* 

5140  PR!NT 

5150  PRINT-A  Yes,  it  is  valid* 

51aO  PRINT-6  No.  it  is  not  valid* 

5170  PRINT 

5190  INPliT'ENTER  the  letter  opposite  the  correct  answer*;TJ 
5190  PRINT 

5200  IF  T»  =  -A"  GOTO  5230 

5210  PRINT-NfiflNfi  -  the  orograi  is  valid” 

5220  GOTO  5310 

3230  305UB  3590 

3240  FOP  X  =  1  T3  2 

5250  FDR  Y  *  1  TO  5 

52AO  PRINT'This  is  the  last  ouesticn' 

3270  NEXT  Y 

5280  NEXT  i 
3290  PRINT 

5300  PRINT-CDRRECT1  -  and  the  nutaut  is  shown  above' 

5310  PRINT 

5320  INPUT-press  ENTER" t T* 

3330  G0SU8  5590 

5340  PRINT’Reeeaber  in  the  beginning  of  this  section  when  we  aentioned" 
5350  PRINT'the  orogra*  that  produced  three  colunns  of  figures,  the  first" 
5360  PRINT’coluan  was  integer  I  through  8.  the  second  colunn  was  the  * 
5370  PRINT'square  of  the  first,  and  the  third  the  sauare  of  the  second-1” 
5330  PRINT’Thinf  >ou  can  figure  cut  how  we  did  it-” 

3390  PRINT 

5400  INPUT-press  ENTER  for  the  answer";!* 

5410  333113  5590 
542)  FOP  X  -  1  '3  3 
542)  °RINT  t,  I*t. 

5440  NEXT  X 
545)  PRINT 

54 i)  PRINT" ID  FOR  X  =  1  TO  3* 

5470  PRINT” 20  oR[NI  t. x*t.  <K *I.*'X»xr 
543l  PR I NT" 30  NEXT  X 
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***♦♦  Listing  at  Prograe  ’ LESSQN3'  ***** 


07/10/83 


3490  PRINT 

5500  PRINT" It  loots  like  child’s  play  non,  doesn’t  it”" 

5510  PRINT 

5320  INPUT“press  ENTER"; Tt 
5330  80SUB  5800 

5340  IF  T$  =  *8"  THEN  SOTO  3430 
5550  RETURN 
5560  REH  ♦* 

5370  REN  *«  This  subroutine  clears  the  screen  on  any  tertmal 
5580  REN  ** 

5590  FOR  X  -  1  10  24 
5600  PRINT 
5310  NEXT  X 
5420  RETURN 
3430  REN  ** 

5640  REN  *♦  THIS  ROUTINE  IS  THE  HENU 
5650  REN  a* 

5660  PRINT"  LESSON  3* 

5670  PRINT 

5680  PRINT’This  is  tne  <irst  part  at  a  tea  part  lesson" 

5490  PRINT* It  is  divided  inta  the  /allotting  sections." 

5700  PRINT 

5710  PRINT' 1 ’  Introduction  T  KILL  4)  FOP  NEXT  Stateeents" 

5720  PRINT’S)  LOQPs  (Intro i  51  Advanced  FOR  NEXT" 

5730  PRINT’’1  COUNTER  variables" 

5740  PRINT 
5750  PRINT 
5760  RETURN 
5770  REN  *♦ 

3790  REN  **  THIS  LETS  STUDENT  REV JEN  LESSONS  IF  HE  NISHES 
3790  REN  ** 

5800  GQSUS  5590 

5310  PRINT’Nhich  do  vou  msn  to  do-” 

3820  PRINT 

5830  PRINT'S  Continue  on" 

5840  PRINT’B  Revieti  this  section  again" 

3330  PRINT 

5860  !NPUT"ares5  the  letter  ooposite  the  correct  ansaer  and  press  ENTER" : T$ 
3370  IF  Tt  =  "fi"  OR  Tt  =  "8"  THEN  RETURN 
5380  SOTO  3800 
3390  REH  ** 

3900  REN  »♦  THIS  IS  EXAMPLE  PROGRAM  TO  SH3N  HON  fi  LOOP  MDRKS 
3910  REH  ** 

3920  PRINT 

3930  PPINT’IO  REN  This  prcarae  calculates  a  table  of  souares  of  ambers' 
5940  PRINT’20  <  =  }" 
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*****  Listing  af  Progra*  ’LE3S0N3’  ***** 


3*50  FRINT-30  X  *  X  *  T 

5960  PR  I  NT*  40  PRINT  X.X*X,  U*X)*(X*  tl* 

5T0  PRINT  “SO  IF  X  =  3  THEN  GOTO  70* 

5990  PRINT'60  SOTO  30* 

3990  PRINT-70  END1 
6000  PRINT 
6010  RETURN 
6020  REN 

6030  REN  This  is  exaeple  oragrae  tor  COUNTER  section 

6040  REN 

o050  PRINT 

6060  PRINT ■ 10  1-0' 

6070  PRINT-20  1=2*1* 

6090  PRINT*30  IF  2  =  10  THEN  STOP* 
a09o  PRINT'40  GOTO  20’ 

6100  PRINT 
6110  RETURN 
a  120  REN 

s 1 30  REN  This  exanole  is  tor  the  FOR  NEXT  section 
6140  REN 


6150  PRINT 

a  160  PRINT-COUNTER  loon 

6170  PRINT 

6180  PRINT-10  .<=0 

6190  PRINT  *  20  1=1*1 

6200  FRINT'30  PRINT  1 

6210  PRINT-40  IF  1  =  9  GOTO  aC 

6220  PRINT-50  GOTO  2f 

6230  PRINT "60  END- 

6240  PRINT 


FOR  NEXT  looo- 

10  FOR  X  =  !  to  3’ 
20  PRINT  .<* 

30  NEXT  X* 

40  END- 


6250  RETURN 
6260  REN 

a270  REN  This  er.aapie  is  for  the  Advanced  FOP  NEXT  sectian 
6290  REN 
6290  PRINT 

6300  FRINT'IO  FOR  X  =  I  TO  2“ 

6310  PRINT-20  FOR  V  =  1  TO  2" 

6320  PRINT-30  PRINT  t,r 

6330  PRINT-40  NEXT  Y 

6340  PRINT-50  NEXT  V 

a350  PRINT 

6760  RETURN 

a370  RUN  -NENU- 

6330  run-lesson:a- 


6390  END 


*****  Listing  of  Progra*  ’LES3QN3A’  ***** 


07/10/83  -  oi: 18: 4S 


250  SOSUB  4090 
260  SOSUB  4150 

270  PRINT'A  T*  taking  this  oart  in  its  entirety.' 

230  PRINT’S  !  wish  to  review  selected  areas.  !or  take  the  test!" 

290  PRINT'S  I  want  to  go  to  the  first  part." 

300  PRINT'D  I  want  to  return  to  the  Nenu. ' 

310  PRINT 

320  INPUT'Press  either  capital  A,  9.  C,  or  D  and  then  press  ENTER* ; T$ 

330  IF  T$  =  *3'  GOTO  4750 

343  IF  TS  =  “C  GOTO  4760 

350  IF  It  =  *9'  SOTO  430 

360  IF  IS  O'A*  SOTO  270 

370  SOSUB  540 

390  SOSUB  1360 

39 0  SOSUB  2430 

400  SOSUB  3960 

410  SOSUB  4080 

420  GOTO  4760 

430  SOSUB  4090 

440  SOSUB  4150 

450  PRINT 

AoO  PRINT'Please  tvpe  in  the  nunber  beside  the  area  you  wish" 

470  PRINT'to  review  '.1  through  4t  and  then  press  ENTER  -  press  0  and’ 

480  PRINT*cre5s  ENTER  to  return  to  the  Menu.' 

490  PRINT 

500  INPUT'Nhat  is  .-our  choice*; N 

510  IF  N  --  C  SOTO  4750 

52'  ON  N  30SLB  540  .1360  .2430  .3960 

530  6DTC  430 

;40  SOSUB  4080 

550  PRINT'  Arrays  < Intro) ' 

560  PRINT 

570  PRINT'D®  have  seen  that  variables  are  storage  places  for  data.  In  * 
580  PRINT'large  prograas.  it  is  difficult  to  aampulate  large  data  bases' 
590  PRINT'without  havinq  numerous  variables  to  assign  the  bits  of  data” 
600  PRINT'to.  However,  there  is  a  wav  to  group  our  variables  into' 

610  PRINT'smlar  bunches  that  .lakes  it  easier  for  us  to  tell  what  part* 
620  PRINT’of  the  data  base  our  variable  belongs  to.  Ne  can  use* 

630  PRINT 'ARRAYS.' 

632  PRINT 

634  INPUT' aress  ENTER' ITS 

636  SOSUB  4030 

637  PRINT*  Arrays  Ilntro)* 

638  PRINT 

639  PP’NT'One  use  for  ARRAYS  would  be  to  lake  a  training  progra*  that* 

640  PRINT'listed  the  ceoole  on  training,  their  time  in  the  organization. ' 


*****  Listing  of  Proqra*  ’LESSCN3A’  **m 


07/10/33  -  Ot : 18:48 


»' 

I 


650  PftIMT'ar  rant,  and  their  training  status,  tie  could  group  the  aa j or ’ 

660  PRINT'cataaories  ma*e,  rant,  training  status!  into  three  variables’ 

670  PRINT'and  use  subscripts  to  provide  a  place  for  each  entry  in  our* 

SSC  PRINT'data  base.* 

69 0  PRINT 

700  INPUT’press  ENTER’; T$ 

710  GOSUa  4080 
720  G3SUB  4410 

’30  PRINT’tie  could  assign  subscripted  ARRAYS  to  the  three  lain  cata-' 

740  PRINT’gories,  An  ARRAY  has  the  following  foreatl’ 

750  PRINT 

760  PRINT*  Variable  (subscript)’ 

770  PRINT 

730  PRINT’The  subscript  is  enclosed  in  parenthesis.  Exaaples  of  valid" 

790  PRINT’ARRAY  variables  are:  »$(!>,  RJ',2),  T(9)’ 

300  PRINT 

310  INPUT ’press  ENTER “ ?  TS 
320  S0SUS  4080 
S30  GQSUB  4410 

540  PRINT’tie  could  use  our  ARRAYS  to  hold  the  above  data.’ 

850  PRINT’tie  could  use  N*(0),  Wilt,  and  NJi2)  to  indicate  the  three* 

360  PRINT’naaes,  PS(0),  Rt(tl.  and  ft* (2)  to  indicate  the  three  ranks,’ 

370  PRINT’and  T!0),  T(U.  and  T!Z!  to  represent  the  three  training* 

380  PRINT”, evels.  Note  that  0  is  a  valid  subscript.' 

890  PRINT 
900  PRINT 

910  INP'JT'press  ENTER’iTI 
920  50SU3  4080 

930  PRINT’ 10  N*iC!  =  ’CHRS (341 ’John  Doe’CHRt!34' 

540  PRINT’20  N*!l!  =  ’CHft*<34) -Jake  Robinski “CHRt(34! 

950  PRINT’30  N*(2)  =  ’CHR*<34> *fark  Nuff in*CHR*(34) 

960  PRINT’40  R* (Ot  =  ’CHRt(34! “Pore«an’CHRI(34) 

970  PRINT *50  R$(l>  =  ’CHRK34) *Peon’CHR*(34) 

980  PRINT ’60  R* -2!  =  ’CHR*  1 34 > “Spec i al 1 5t *CHR* 134) 

990  PRINT’70  T!0>  =  9’ 

1000  PRINT’30  T(l)  -  3" 

1010  PRINT'90  T f 2)  =  5* 

1020  PRINT* 100  PRINT*CHR$:34) *Na«e  Rant  Training  Status “CHR* < 34 ) 

1030  PR INT ’110  PRINT’ 

>040  PRINT’120  PRINT  N*!0),R*(0),T(0)* 

1050  PR INT *130  PRINT  N* 1 1 > , R* ( 1) . T ( 1 J ’ 

1060  PRINT* 140  PRINT  N*<2) ,R*(2) ,T(2) * 

1)65  PRINT 

1070  INPUT’Thi s  progra*.  when  RUN,  would  print  our  data 
1090  G0SUB  4080 
1090  GOSUB  441; 
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press  ENTER'; 7* 


*****  Listing  of  Proqra*  'LESSGN3A'  ***** 


07/10/33  -  01:18:48 


I 


1100  PRINT'This  is  uhat  that  progra*  would  output.  Notice  that  we  have' 
1110  PRINT'used  only  three  variables,  but  ae  lade  the»  ARRAYS  so  that  we1 
1120  PRINT’could  hold  nine  bits  of  data." 

1130  PRINT’As  *e  continue  through  our  lessons,  ae  Mill  discover  sote  very" 
1140  PRINT’powerful  uses  for  ARRAYS.1 
1150  PRINT 

1160  INPUT'press  ENTER1; T$ 

1170  S0SUB  40S0 

1130  PRINT'Is  the  following  ARRAY  and  its  subscript  valid7* 

1190  PRINT 
1200  PRINT'A'.O)1 
1210  PRINT 
1220  PRINT'A  TRUE* 

1230  PRINT 1 8  FALSE1 
1240  PRINT 

1250  INPUT'ENTER  the  letter  opoosite  the  correct  answer’;Tt 
1240  PRINT 

1270  IF  T$  =  'A1  SOTO  1300 

1230  PRINT "WRONG  -  the  correct  answer  is  A1 

1290  GOTO  1310 

::0‘J  PPINT'CORRECT" 

1310  PRINT 

1320  INPUT’press  ENTER'; f* 

1330  GOSUB  42°0 

1340  Ic  Tt  =  "B"  GOTO  540 

1350  RETURN 

!3a0  GOSUB  4080 

1 370  PRINT1  ARRAYS* 

1375  PRINT 

1390  PRINT’If  vou  nave  a  little  iatheeatics  in  your  background,  you  will" 
1390  PRINT'have  noticed  that  ARRAYS  are  alaost  the  sa*e  as  their  aath1 
1400  PRINT’eouivalent,  except  that  the  subscripts  are  in  oarenthesis* 

1410  PRINT1instead  o‘  slightly  loner  and  to  the  right  of  the  variable,1 
1420  PPINT 

1430  PRINT "The  previous  exascles  all  dealt  aith  a  0NE-2INENSI0NAL  ” 

1*10  RRINT'AFRAr .  That  is,  there  aas  only  one  nuaber  m  parenthesis” 

143'.  PR’!iT"that  «as  significant.  ARRAYS  aith  TWO.  THREE,  FOUR,  or  acre1 
14t0  PR!NT”ji»er5ions  are  possible,  host  dialects  of  BASIC,  including" 

'.  470  PRINT'Nicroscf t .  *i  1 !  handle  at  least  3  dimensions.  An  exaeole  of  a” 
'.130  I  NT  "TWO  dnension  ARRAY  would  be  N-12,21.  Notice  that  the  extra1 

lir  PRI‘{T*d:»e*s;on  aas  designated  bv  just  adding  another  subscript  in-" 
I'-l'O  59INT*siie  the  parenthesis.  A  THREE  DIMENSIONED  ARRAY  looks  like” 

131  CB!MT*th’.s:  R12.1.9)  cr  TtiS.44,3!  lor  anv  coibiration  of  nu*bers>” 
1520  INPUT'press  ENTER1; T» 

1 530  3CSUB  4030 
:!40  GCSUS  4523 


i 
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*****  listing  of  Prograe  ’ LESS0N3A’  ***** 


07/10/83 


1550  PRINT’The  above  prograi  cosbines  several  of  the  techniques  that  we* 
1560  PRINT'have  been  learning.  Before  we  tell  you  the  answer.  try  to  ■ 

1570  PRINT'ftgure  out  what  the  outout  of  the  prograe  would  be.  Ne  warn” 
1580  PRINT ’you,  it  is  a  little  triclv,  but  see  if  you  can  figure  it  out.” 
1590  PRINT 

1400  INPL'T’press  ENTER", T$ 
l 610  8G3U3  4030 
'.420  G0SUB  4520 
1  c 3 0  PRINT’5  10  15  20” 

1640  PRINT 

1450  PRlNT”This  is  the  output.  Lines  10  and  20  are  nested  FOR  NEXT  looos." 
1640  PRINT’They  set  up  the  READ  stateeent  in  line  30  so  that  it  mil  READ* 
1470  PRINT'in  the  values  that  are  in  the  DATA  stateeent  and  assign  the" 

1430  PRINT'current  X, V  subscript  to  it.  Values  are  read  in  one  at  a  tiee.* 
1690  INFUT'press  ENTER*: T* 

1700  SQSUB  4030 
1710  SQSUB  4520 

r:0  PRiNT'On  the  first  oass,  X  =  1  and  Y  -  I,  A(l,l)  therefore,  eouals  5* 
1730  PR  I  NT ’The  seei-colon  on  the  end  of  the  print  stateeent  causes  the  * 
!740  PRINT'nuebers  to  be  printed  side  by  side  instead  of  on  separate  lines" 
1750  PRINT'and  they  all  have  one  space  between  thee,  (caused  by  the  Vi* 
1760  PRINT’Cn  the  second  iteration  of  Y.  Y  will  equal  2  and  X  -  1.  A(l,21" 
1770  PRINT “wi 11  equal  10.* 

1730  PRINT 

1790  INPUT'press  ENTER'; T« 

1300  SQSUB  4030 
1310  SQSUB  4520 

132)  PRINT’Nhen  the  second  iteration  of  Y  is  done,  control  will  pass  to  * 
1830  PRINT’lme  10  and  X  will  begin  ITs  second  iteration.  The  Y  loop” 

1340  PRINT'wi 1 1  start  all  aver  again  and  when  line  30  is  executed  (3rd* 

1350  PRINT*tieel.  A  2.1!  will  equal  15.  Finallv,  Y  will  execute  for  the* 
1360  PRI.NT'fourth  tue  (second  tiee  while  X  =  21.  and  A(X.Y)  will  have  all* 
1370  ?RlNT'nu*ters  in  the  DATA  stateeent,  and  the  nuebers  will  have  " 

1330  PRlNT’prmted  out.* 

1335  PRINT 

I3«0  INPUT'press  ENTER*'.  Tt 
1900  SQSUB  4030 
191.;  G0SU8  4650 

1Q2C  PRlNT’Another  wa>  to  look  at  the  ARRAY  is  to  visual i:e  it  as  above.” 
1970  PRINT'The  ARRAY  has  four  of  its  pockets  loaded  (we  ignored  the  0’ 

1940  5R!NT*pockets  so  the  eiolanaticn  would  be  sispier.  They  are  still* 

!95)  PPINT’there.  they  are  just  not  used)  Nhen  AlX.ri  =  10.  X  oust  equal  i* 
i960  3NT ’ ar. d  v  oust  equal  2.  Do  you  see7’ 

P5!NT 

;r(0,Jr“rress  ENTER” ;  T* 

1}33  33SJ3  403- 


01118:43 
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***♦♦  Listing  of  Proora*  ’ LESS0H3A '  ***** 


C7/10/83  -  01: 18:48 


1990  60SUB  4650 

20QQ  PRINT’  If  a  value  of  one  of  the  pockets  of  array  A'.X.Y!  equals  15/ 
2010  PRINT'what  are  the  values  of  l  l  Y  that  would  reference  that  pocket'’’ 


2020 

PRINT 

2030 

PRINT’S 

1=1. 

Y-l 

2040 

PRINT'S 

4=1. 

y=2' 

2050 

PRINT’C 

4=2. 

Y=1 

274:1 

PRINT’D 

y-2 

2065 

PRINT 

2070  INPUT “ENTER  the  letter  opposite  the  correct  answer*; 71 
2080  PRINT 

2090  IF  T4  =  ’C*  GOTO  2120 

2100  PRINT'NP.QNG  -  the  correct  answer  is  C" 

2110  GOTO  2130 

212(1  PR  I  NT ’CORRECT  1  m  OUTSTANDING  ***’ 

2130  PRINT 

2140  INPL/T ’press  ENTER’; 71 
2130  SOSL'fi  4030 
2160  30SU6  4450 

2170  PRINT’If  t  =  1  ana  '(  =  1.  what  value  is  in  the  poci.et  pointed  to  by’ 
2130  PRINT  “ARRAY  AU.YP’ 

2190  PRINT 

2200  PRINT'S  10  B  15* 

2210  PRINT’C  20  D  5’ 

2220  PRINT 

2230  INPUT ’ENTER  the  letter  cooosite  the  correct  answer'; T* 

2240  PRINT 

2250  IF  TJ  =  *0"  GOTO  2280 
22su  PRINT’WRQNS  -  the  correct  answer  is  0’ 
r.nrn 

2230  PRINT-CORRECT  ” 

2290  PRINT 

2300  INPUT "or ess  ENTER"! Ts 
2310  GOSJ?  4030 
2320  SOSUB  4450 

2330  PRINT'The  FIRST  suOscriot  in  an  ARRAY  ALWAYS  indicates  the  RONs  of’ 
2340  PRINT’OATA,  and  the  SECOND  subscnot  indicates  the  CDLUlWs  of  data/ 
2350  PRINT’Therefore,  ARRAY  A(t,Yi  has  X  rows  and  T  ccluens.  You  will* 
2340  PRINT ’ f and  that  once  vou  visualize  a  two  dmnsional  ARRAY,  the  ■ 
2370  PRINT’others  will  co»e  quite  easily/ 

2330  PRINT 

2390  INPUT ’press  ENTER’ :T$ 

2400  SOSUB  4290 

2*10  IF  It  -  ’B“  GOTO  1340 

24 ZO  RETURN 

2430  603(18  4 .'30 
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»♦***  Listing  at  Prograi  'LESS0N3A’  ♦***» 


07/10/83  -  01:18:46 


PRINT*  Di tension  4  Clear* 

PRINT 

PRINT'Whenever  you  use  an  ARRAY  m  BASIC,  the  processor  has  to  aake* 
PRINT'rooi  tor  all  the  extra  tetorv  pockets  that  you  ml!  use.* 
PRINT“!Jp  to  a  lieit,  the  lachme  can  handle  unexoected  ARRAYS,  but* 
PRINT’after  you  designate  *ore  than  10  pockets  or  3  dimensions,  the* 
PRINT“caaouter  aust  knot  ahead  of  time  so  it  can  reserve  enough* 
?RINT*soace.  The  *a»  you  tell  the  coaouter  to  use  an  ARRAY* 

PRINT’mth  at  least  one  subscript  bigger  than  10  or  mth  acre  than  3" 
PR INT’di tensions  to  it  he  N13.3.3.3)),  vcu  use  the* 

PRINT "D IM  statement.  Din  stands  for  DIMENSION,  and  it  sust  be  “ 
PRINT'used  before  the  ARRAY  is  used,  and  it  cannot  be  changed  once’ 
PRINT'the  orcgra*  is  Rl'Nmng.* 

PRINT 

INPUT'press  ENTER*;!* 

SOSUB  4080 
PRINT" 10  DIM  3(121" 

PR  I  NT *20  FOR  X  =  I  TO  12* 

PRINT*30  READ  81X1“ 

PRINT-40  NEXT  X* 

PRINT *50  DATA  5. 10, 15,20.25, 30. 35, 40.45,30, 55,40* 

PR  I  NT "60  FOR  X  =  1  TO  12* 

PRINT'70  °RINT  BOOS* 

PRINT‘80  NEXT  V 
PRINT'RUN* 

PRINT 

PRINT’S  10  15  20  25  30  33  40  43  30  55  60* 

PRINT 

PRINT*The  DIM  statement  told  the  computer  that  12  pockets  were  needed' 

1  PRINT'and  the  READ.  DATA,  and  PRINT  statements  filled  the  ARRAY  and* 
PRINT’prmted  it  out.* 

;  PRINT 

INPUT’press  ENTER*; T1 
60SD3  4080 

PRINT*  Dnension  and  Clear* 

PRINT 

PRINT'Another  problea  the  coaputer  has  mth  meaory  allocation,  is* 
PRINT'reserving  enough  room  for  STRING  space.  For  everv  letter  in* 
PRiNT’a  STRING,  the  BASIC  processor  aust  use  a  little  over  one  setter 
PRINT’location.  (it  aust  be  able  to  find  the  letter  once  it  stores  it" 
PR I  NT “so  it  uses  one  location  to  store  the  letter,  and  another  tc" 
PRINT'reaind  it  ahere  it  out  the  STRING  in  the  first  place1 )* 

PRINT'Ur.i lie  nuaber  variables,  SrRINSs  can  use  up  to  255  characters* 

1  PRINT’per  line  inuabers  seidoa  use  aore  than  4  -  the  reason  is  rather* 
f':INT"technicai ,  ,ou  mat  wish  to  look  up  ho*  data  is  handled  intern-" 
PPINT'ally  bv  the  coaouter  m  a  re*erence  took:.  If  vcu  are  going" 
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*m»  Luting  of  Prograe  'LESSON’S’  m»» 


07, 10/83  -  01 


ZSSC  PRINT’to  use  lore  than  50  characters  north  of  STRING  soace,  you  lust" 
2890  PRINT'CLEAP.  lore  rooi  for  it.  The  clear  statement  actually  WIPES  OUT" 
7900  PRINT'data  space  and  reserves  leiory  locations,  so  it  aust  ALWAYS  be" 
2910  PRINT’the  first  statement  if  you  are  going  to  need  it." 

2915  PRINT 

2920  INPUT’press  ENTER* lit 
2930  G0SC8  4030 

2940  PRINT"  Dnension  and  Clear" 

2950  PRINT 

2°S0  PRINT" I f  vou  use  the  CLEAR  stateient  in  the  Middle  of  a  orograa." 

2970  °RINT"the  accuiulation  of  data  that  vou  have  stored  in  variables  to" 
2980  fP.'NT’the  point  that  the  CLEAR  word  was  used,  mil  he  ceroed  out." 

2990  PRInT 

3000  PRINT’10  X  =  150* 

3010  PRINT "20  CLEAR" 

2020  PRINT "30  PRINT  X’ 

3030  PRINT "RUN" 

3340  PRINT 
3050  PRINT’0* 

3040  PRINT 

3i"0  INPUT’Co  vou  see"  "he  CLEAR  word  ceroed  out  V . press  ENTEP'lTs 

3090  GOS’JB  4C8C 

2090  PRINT* 10  CLEAR  IdOO” 

310’J  PRINT *20  DIN  3(50).  AKlOOl* 

3110  PRINT* 30  FOR  X  =  !  TO  100* 

3120  PRINT* 40  READ  AllX)* 

3130  PRINT" . etc." 

3140  PRINT 

3150  FRINT‘The  aoove  snows  the  first  4  lines  of  a  prograe  that  is  goino" 

3! so  PRINT’to  use  ao re  than  u 000  soaces  of  string  soace  ‘.that  will  give" 
Cl1''.  cRIN*'an  average  of  10  letters  oer  oocket  cf  ASill'  and  is  going  to" 
3180  PRI.NT'use  50  gcc<ets  cf  the  nu«er:c  arrav  S.  (note  that  vou  alwa.s" 
3190  PRINT’get  cccvet  )  Per  free,  it  is  noreall.  not  used!" 

32  v. 

3210  PRINT’Nctice  the  position  of  the  CLEAR  and  DIN  stateaents." 

3220  INPUT'o-ess  ENTER*: T1 
3230  333UE  4380 

33J0  PRlHT’What  will  oe  the  output  cf  the  following  prograe"" 

3250  PRINT 

32aO  PRINT* 1 0  A'  13)  =  5" 

3270  PR  I NT *20  CLEAR" 

3230  PRINT"3C  PRINT  AI12;* 

3290  PRINT 

3300  C'R!NT“A  0  because  the  clear  stateeent  is  in  the  wronc  place." 

3310  PRINT 

3320  PRINT’S  5  -  the  clear  stateeent  only  affects  STRINGS." 
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3330  PRINT 

3340  PRINF"C  Nothing  because  A ! 131  will  cause  an  ERROR* 

3350  PRINT 

3360  INPUT “ENTER  the  letter  opposite  the  correct  answer": It 
3370  PRINT 

3330  IF  T*  =  *C“  THEN  GOTO  3410 

3390  PRINT'HRONG  -  C  is  the  right  answer" 

3410  GOTO  3430 

3410  PRINT’CORRECT  -  GoooooOOOOOOOD  JOS'* 

3420  PRINT 

3430  INPUT "press  ENTER*: T * 

3440  GQSU3  4080 

3450  PRINT'The  CLEAR  word  is  used  to  clear  storage  space  Tor  strings,  but" 
3460  PRINT’it  also  wipes  out  other  data,' 

3470  PRINT 

3480  PRINT "A  TRUE" 

3490  PRINT'S  FALSE" 

3500  PRINT 

3510  INPUT'ENTER  the  letter  opposite  the  correct  answer";T$ 

3520  PRINT 

3530  IF  TJ  :  "A*  GOTO  3340 

3540  PRIHT’NRQNS  -  the  correct  answer  is  A* 

3550  GOTO  3573 

3560  PRINT “CORRECT  -  GGOOcooocoooC00000Ga00000CQ0C0D  JGB'  * 

3570  PRINT 

3530  INPUT "pr ess  ENTER” ;T$ 

3590  G3SU5  4030 

3600  PRINT'As  a  reainder,  the  DIN  stateaer.t  does  not  create  the  ARRAY ,  it  " 
3610  PRINT’on] ■/  defines  its  site.  It  aav  be  used  to  NININIZE  storage" 

3620  PRINT'space  tv  designating  ARRAYs  that  are  LESS  than  10.  That  wav" 

3630  PRINT'the  coiputer  will  not  automatically  reserve  »ore  space  than" 

3640  PRINT'needed.  For  ecasple:’ 

3650  PRINT 

3660  PRIMT'IO  DIN  A<2.2) " 

3670  PRINT 

3a 30  PRlNT’Tms  would  be  a  valid,  and  »e*orv  conserving  statement.  The  * 

3c90  PRINT'orocessor  wouldn't  reserve  a  10  l  10  pocket  ARRAY  for  AOt.Ii.  it" 
3700  PRINT’would  only  reserve  a  2  t  2." 

3710  PRINT 

3720  INPUT "press  ENTER* : T * 

3730  GCSUB  4030 

3740  5R!NT*’4hat  is  wrong  with  this  progra*1" 

3’50  PRINT 

37s 3  PRINT'IO  CLEAR  1000“ 

3770  PR  1ST "29  DIN  AO" 

"80  PRINT'30  A<2>  =  5* 
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3730  PR1NT“40  PRINT  A(2> * 

3300  PRINT 

3310  PRINT'S  The  DIN  stateeent  is  in  the  wrong  place.' 

3320  PRINT'S  The  CLEAR  statement  is  invalid.' 

3330  PRINT'C  Nothinq.” 

3940  PRINT 

3350  INPUT'ENTER  the  letter  apposite  the  correct  answer1!!* 

33oG  PRINT 

3370  IF  Tt  =  'C*  SOTO  3900 

3330  PR [NT "WRONG  -  the  correct  answer  is  C' 

3390  GOTO  3910 
3900  PRINT-CORRECT' 

3910  PRINT 

3920  INPUT'press  ENTER'; !* 

3930  GOSUB  4290 

3940  IF  I*  -  'B*  GOTO  2430 

3950  RETURN 

2940  GOSUB  4090 

3970  PRINT'  TEST' 

3990  PRINT 

3990  PR I NT "You  have  coapleted  this  lesson.  ENTER  a  'C‘  to  Continue” 
4000  PRINT"* o  the  TEST  or  ENTER  an  'ft'  to  start  over.* 

4010  PRINT 

4020  INPUT'ENTER  ,our  choice’;!* 

4030  IF  T*  --  *C“  THEN  60T3  4740 
4040  RUN 
4050  REN  h 

4040  REN  »  This  subroutine  clears  the  screen  on  anv  ternnal 
4070  REh  »» 

4030  FOR  X  =  1  TC  24 
4090  PRINT 
4 tOO  NEXT  X 
4110  RETURN 
4120  REN  ** 

4130  REN  **  THIS  IS  THE  NENU  SUBROUTINE 

4140  REN  »* 

4150  PR[NT*  lEGSON  35' 

4160  PRINT 

4170  PRINT'This  is  the  second  part  of  a  tap  part  lesson' 

4130  PRINT'It  is  divided  into  the  following  sections.' 

4190  PRINT 

4200  PRINT'!!  Arrays  : Introduction)  3)  Diaension  i  Clear' 

4210  PRINT'2)  Arravs  4!  Test' 

4220  PR !NT 
4230  PRINT 
4240  PRINT 
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Foreian 

Peon 

Specialist 


4250  RETURN 
4240  SEN  »* 

4270  SEN  ft  THIS  LETS  STUDENT  REVIEW  LESSONS  AGAIN 
4280  REN  e* 

4280  GOSUB  4090 

4300  PRINT'Hhich  do  you  wish  to  do?* 

4310  PRINT 

4320  PRINT’A  Continue  on* 

4330  PRINT'S  Review  this  section  again' 

4340  PRINT 

4350  iNPUT'press  the  letter  apposite  the  correct  answer  and  press  ENTER* ; TS 
43a0  IF  T$  =  "A*  OR  !$  =  ’8“  THEN  RETURN 
4370  GGTQ  4280 
4330  REN 

4380  REN  This  subroutine  is  tor  the  First  Subscripts  e-.aeale 
4400  REN 
4410  PRINT 

4420  PPINT'Naee  Rank  Training  Status* 

4430  PRINT 

4440  PRINT'uonn  Doe  foreian  8" 

4420  PRINT ' Jake  Robinsk:  Peon  3" 

44a0  PRINT ‘Nark  Nuffin  Specialist  5* 

447)  PRINT 
4430  RETURN 
4480  REN  »♦ 

4500  REN  ft  THIS  ROUTINE  IS  FOR  ARRAYS  EXANFLE 
4510  REN  ♦* 

4520  PRINT 

4530  PRINT" 10  FCP  J  =  1  TO  3" 

4540  PRINT* 20  FOR  Y  =  1  TO  2" 

455C  PRINT‘30  READ  A'?.*: 1 

4540  PR  I  NT  “40  PRINT  AU.rii* 

4570  PR  I  NT “50  NEXT  Y* 

4580  PRINT’S')  NEXT  V 

4580  PRINT'D  DATA  5. 10. 15. DO* 

4i0/  PRINT 
4tl j  RETURN 
4520  PEN  *» 

J;3,  REN  ♦»  THIS  SOUTINE  IS  2ND  ARRAY  EtArtPLE 
i;4v  SEN  ft 

ib!0  KRX'  Y* 

4460  5RINT‘  I.  2." 

i«rj  PRINT 1  I . I . 

4c 30  Fft.V  1.  1  5  I  10  I" 

-3’:  PR!*r'  x  I - 1 . 1  ARP'Av  r. 
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♦*♦**  listing  ot  Prcgra*  ’TE2T3’  ***** 


07.10/83  -  01:33:0: 


5010  SEW  ♦♦  LESSON: 

TEST3 

VI 

1020  REN  »*  AUTHOR: 

CAP7  DAN 

CSEASAN 

1030  REM  ♦* 

1040  SEN  »* 

AIR  FORCE 

INSTITUTE  C-F  Tl 

SOSO  SEN  ♦*  VARIABLES 

, 

lii'j  REN  *♦ 

N*U) 

=  NAMES  ARRAY.  1 

10TO  REN  ** 

UENTIAL  NAMES 

1030  SEW  ♦♦ 

UPDATE  NAMES. 

1090  REN  t* 

S;j) 

;  SCORES  ARRAY 

2100  REN  ♦♦ 

WRITE  SCORES 

1110  REN  ** 

5- xi 

*  ARRAY  TO  KEEP 

•«2C  REM  *♦ 

CORRECT  ANSNEI 

1130  REM  ♦* 

ELEMENT  EQUAL 

:;4.j  RM  H 

1130  RE,"!  ♦* 

CORRECT 

version:  :  aus  a: 


ilsO  CLEAR  3000 
1170  30:08  4080 
1130  DIM  511 !  1 0)0 ' 

11?;  DM  8: 10! 

i:oe  dm  Si  ;c 

1210  PRINT-  FINAL  TEST  ■: lesson  3;* 

1220  FR!NT 

1230  PRIST’This  test  consists  ct  10  cues: ions.  <sa  Just  get  70  cerce-.r 
1 240  PRINfc*  thee  -correct  to  ssss.  tret's  7  right  cut  si  tne  I'D  sues 
1 250  PRiNT'tions.' .  Use  :niv  cwiUl  letters  in  .cir  answers,  desV 
1  Dio  -RIST'ir.cluce  estre  soeces  or  letters.  O-CCD  LOCK” 
in  PRINT 

1280  INPUT 'sress  £N~£R  t:  continue'*?! 
r 2° :  1-2:.?  /'OS. 

!2)0  FRINT'1*”:::  o*  tre  roil  own?  is  .aiH:H 
13.  PRINT 

1 12 D1  :'Ri5iT"A  KILL  *2HR*  .3-*  SLEAlv  ’ 2 .Vfi S ' 3 4 ! 

133’J  P?It»T“8  K ! L _  SlEA2v" 

134  0  FFlNf’C  ONSAVE  *Ch8! .  14 1  'SLEAZ :  ’ChRl 1 14 : 

1 350  PRINT'D  UNSAVE  5LEAZ y " 

1 3c  J  w<INT 

ITT'';  :s?UT‘ENTER  the  letter  cjccsite  tre  correct  i-r.swer  •:*» 

1330  PR  IN . 

:3?c  l-  Tf  -  "A"  50T2  1450 
I  i  v-  99. ;\T" wSCNS  -  tw:8  ccrrsct  5r»5#tr  *■ ' 

1*10'  : R 1 N T -  Ars«er  S  -sees  3l3A2-  :r  c.ctes  t:  te  n 

.4..  -RiN  arsae-s  „  '  ..  ,*.S^.S  is  net  s  SA:IC  acre. 

I1!  ■  F-l'f  See  ssrt  .  1... ' 


: i t i i c  sf  Freer *8  ’TEST’'  **♦♦♦ 


07/10  S3  - 


INRCT'ENTSR  .our  ans«er*5T$ 

print 


i -40 

IE  TS  =  "i  : 

5"  THEN  SC’S  2030 

1-50 

PRINT **RCNS 

-  the  correct  answer  is  1  3 

c  ■ 

;  ?  50 

:'R!NT“ 

The  First  tiae  t: 

troupe.  a 

is 

an 

nted.  then  the* 

•  ;7{-j 

PRINT” 

NEXT  t  state»ent 

incre*er.ts  l  bv 

i. 

The  seccna  tite* 

i  *  2  J 

RRINT* 

through  a  ’3'  is 

omtec, 

BESIDE 

the 

1  (because  c<  the 

:*?e 

PRINT* 

then  the  NEtT  \ 

stateaent 

again 

2000 

PRINT” 

increaents  .;  ov 

2.  The  la; 

;t  t:se 

thr 

sunn.  a  5  is  cnaiit. * 

2010 

CRINT* 

See  oart  1.  AOva 

nces  FOR  ■ 

-  NE1T” 

:c4<j 

t,- 

kjg. 


v  nr 


SOTS  2050 
PRINT "CORRECT* 

C  ••  a  i  =  i 
PRINT 

INFCT’oress  ENTER* ;Tl 
SOSOS  4082 

'RINTTRo*  jan*  pjereis  ter  eieaerts.’  can  an  arra.  ha»e  without  a" 
-PINT-DIM  stauaenf ‘ 

“  r  »  a. r 

t*  ■*.  .  i  i 

PRI\7"4  10  not  counting  the  >:  eleaent' 

INT"B  U  net  counting  the  0  eleaent* 

FKINT’C  3  net  counting  the  0  eieaent" 

PRINT":  4  net  counties  tie  0  element” 


1:=/  INPUT  'ENTER  the  letter  opposite  the  correct  answer  "ill 
2jri  PRINT 

2*30  IP  Tl  1  'A*  3070  2220 

1190  FRINT'WRCNG  -  the  correct  answer  is  A” 

2200  PRINT-  Bee  part  2.  ARRAYS* 


8fiINT*C2RRECT* 


::«•)  print 

2250  lNFb7“oress  ENTER *571 
22iO  30SUS  4030 

22.-0  ?RINT*nc»  iarv  ooclets  are  there  in  a  2  l  3  arra*’" 

2230  PRINT 

22=  I  INPUT ''ENTER  /car  answer";  rl 
22)0  -PINT 

23:.'  IF  *S  -  V  IREN  SOTS  2360 

2320  PRINT  "MR'CNi  -  the  correct  answer  is  s" 

233;  FRIST  T*e  easv  wav  to  count  tnea  is  to  eultioi*  tnee. 

2340  9RIST*  See  cart  2.  ARRAYS.* 

235)  3CTC  233: 

22-0  PRIT'CCRPECT'1 


•"?"  rt; 


*****  listing  if  Progras  'TEST3’  *****  07; 10/3 


234u  PRIST*  Answer  5  has  oarers  in  the  Krona  place.  CAD  trv ' 

2850  PRINT’  to  use  a  string  instead  of  a  nuaber  for  a  pocket " 

_3a'j  PRINT"  designator.1 

2370  PRINT'  See  part  2.  ARRAYS. * 

2230  S0T0  2910 
2890  PR 1ST "CORRECT" 

I90C  S'°:  -  1 
2’ 15  PRINT 

292:;  INPUT  "press  ESTER*  5  T* 

2930  6SSU8  4080 

2940  FRINT'The  CLEAR  statement  is  used  far  clearing  STRING  space  and  * 

295C  ?9 1. NT ‘AWAY  s  aast  be  used  if  your  STRING  use  is  greater  than  10C* 

296-2  PPINT'but  dcesn't  have  to  be  used  if  -.our  37S!NS  will  be  LESS  than" 
2970  PRINT* ICC  characters." 

2  PS'1  ps'NT 

2990  PRINT'S  the  above  auesticn  TRUE  or  FALSE1* 

3005  PRINT 

3510  INPUT  "ENTER  TRUE  or  FALSE": T* 

3-;2C  PRINT 

3520  iF  T$  =  "FALSE"  GOTO  3090 

3140  PRINFNRCNG  -  the  correct  answer  is  FALSE" 

255'.'  PRINT’  CLEAR  statement  is  fcr  clearing  an;  space  acre  than  50" 

3065  PRINT’  ana  it  also  mitialices  r.ueeri:  <ar: soles  to  5.  ‘ 

3070  PRINT’  See  part  2.  CLEAR." 

203)  SCT0  31 19 
3,"5C  F!'INT"C0RR£C7’ 

3120  Slid  *  1 
3! 15  »R1NT 

2 1 2 .  1'lP'JT‘oress  ENTER’iTS 
3130  32SUB  4039 
314?  PGR  J  =  1  T2  19 
3150  i  -  F-SIJ) 

3 ISC  NEXT  < 

317-2  FRINT’You  have  finished  the  test,  put  of  1C  possiole  correct  answers" 
3135  PRINT" ;3u  scored  *Y*.’ 

319?  PRINT 

2250  IF  ?  o  THEN  PRINT* YOU  HAVE  PASSED" 

3219  ecsue  3°35 

322  -  IF  •  6  THEN  SOTO  3300 

2230  PRINT'YOU  HAVE  NOT  RECEIVED  ENOUGH  POINTS  TO  PASS" 

324;  PRINT 

325!  “R I  NT  *  YOU  SHOULD  RETAKE  LESSON  3'" 

3269  “PIN7 

3270  PRINT’rou  will  :e  returned  to  the  Nenu." 

3135  BQINT 

3290  SU’D  4t2u 
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*****  usting  3t  rrggra*  '  TEST 3 '  ***** 


07/10/83  -  01 


”00  PRIST 

331o  PRINT'Oo  vou  want  vour  score  recorded  an  a  ceraanent  file?" 

3330  PRINT 
3330  PRINT’S  YES’ 

3340  PRINT " 6  NO’ 

3350  PRINT 

3360  INP'JT'Nhicn’sTl 

337'}  IF  7$  «  *8*  THEN  GOTO  3670 

3330  SGSE18  4030 

3390  PRINT  “To  record  your  score,  we  aust  open  a  file  and  out  vour  na*e" 

3400  PKINT’in  it.  Therefore,  surprisingly,  we  need  vour  nase.  If  /our" 
3410  PRINT Tiane  is  not  unique  aacng  the  students  likely  to  take  this  test,’ 
3430  PRINT’pieass  contact  your  test  somtor  for  an  identifying  word  that’ 
343y  RRINT’wilI  lake  *cu  unique.  Then  enter  that  «or a  below.* 

3440  PRINT 

3450  PRINT” I f  vou  have  already  entered  a  score  previously,  be  sure  to* 

3460  5R I NT "enter  the  sane  nane  vou  used  before,  lose  all  capitals)’ 

3439  PRINT 

1130  INFuT’ENTER  vour  word  or  naae  now’s Tt 
3430  0PEN’:\1, "SCOPES’ 

3500  1  =  0 
3510  t  -  <*1 

3523  IF  EOF  I)  THEN  GOTO  3570 
3533  INP'JTfl  : 

334  )  INPljTll.SU.' 

3250  ;c  Nf ( ! :  =  Ti  THEN  SOTO  3730 

3360  GuTQ  3510 

3570  t  =  M 

3:30  CLOSE 

3590  S  =  S*1 

3603  Nt.t:  =  7* 

3610  3!S!  -  Y 

3620  QPEN’3‘. l.*SCQRE3’ 

3630  FOR  N  *  1  TO  J 
3640  PRINT#!. Nt  .4! 

3:30  PRINT!  1.3  OS) 

3is0  Net'  4 
3670  PRINT 

3o30  PRINT” Vou  are  now  qualified  to  30  to  LE3SCN  4.* 

3690  PRINT 

3700  PRINT’ If  /ou  want  a  hoaework  assiqnaent,  select  it  now." 

3710  PRINT 

3'20  IMPlT'Da  /cu  want  to  see  .our  hc.iewo rk  i'Y,N:’;T$ 

3”!  .'9  TJ  =  *N"  'HEN  GCTO  4140 
3740  50 TG  41-30 


.  C** 

is»< 


***♦♦  cistmq  cf  Proora*  'TEST3’  ***** 


07/10/33  -  01:33:05 


3:30  :?  =  u: 

3770  IF  EDFI1J  THEN  CLOSE: X=X-1: SOTO  3300 
3730  INPUT 1 1 .  Nt ( X ) ,  SIX! 

3 '90  SOTO  3760 
3300  OPEN‘O’,1, 'SCORES* 

3310  FOR  W  =  1  TO  X 
3320  PRINTtl,N*;M) 

3330  PRINTtl.SiU) 

3340  NEXT  W 
3330  PRINT 

3360  PRINT'Vou  aav  no*  take  LESSEN  4.  Ton  will  be  returned  to  the  NENU* 

3370  PRINIUroa  «here  vou  aav  go  to  LESSON  4  or  quit.’ 

3330  60TC  4110 
3370  REN  ‘t 

3900  REN  **  THIS  ROUTINE  LETS  STUDENT  KNOW  WHAT  AREA  HE 
3«10  REN  »*  QR  SHE  SHOULD  REVIEW  BEFORE  6QIN6  ON 
3920  REN  ** 

3930  IF  '=10  THEN  RETURN 

3940  PRINT'VOU  NEED  INPRGVENENT  IN  THE  FOLLOWING  AREAS:* 

3950  PRINT 

3960  IF  3-1!  =  0  THEN  PRINT  *  part  1,  KILL  stateaent* 

3970  IF  9X2)  =  0  OR  9:3)  =  0  OR  0(4)  =  0  THEN  PRINT'  part  l,  LOOPS* 

39S0  IF  0(5!  =  0  OR  0(6!  =  0  OR  0(7!  =  0  OR  Q(3)  =  0  THEN  PRINT'  oart  2,  ARRAYS* 
3990  IF  3(9:  *  o  THEN  PRINT*  part  2,  DIN  statement' 

4000  IF  QUO)  =  0  THEN  PRINT*  part  2.  CLEAR  statement* 

4010  PRINT 

4020  INFUT'press  ENTER* ST* 

4C3C  GCS'JB  4080 
4040  RETURN 
4050  REN  n 

4060  REN  »*  this  subroutine  clears  the  screen* 

4070  REN  h 
4030  FOR  X  =  1  TO  24 
4090  PRINT 
41 00  NEXT  X 
4110  RETURN 
4120  PRINT 

4130  INPUT'oress  ENTER  to  return  to  NENU’sT* 

4140  RUN'IENU* 

4150  PRINT 

4160  iNPUT'c.-ess  ENTER  to  load  .our  hoeewort*: r* 

4170  RUN  *HW3* 
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1000  REM  *♦  THIS  PROGRAM  STARTED  ON  4  JUNE  1983 
1010  RE*  **  AUTHOR:  CAPTAIN  DANNY  J.  CREASAN 
1020  REN  ♦♦  TITLE:  LESSON  4A 
! J30  REN  ♦♦ 

104*>  PEN  ♦* 

1050  REN  ** 

1040  REN  ** 

1070  303UB  7020 

1080  PRINT-LESSON:  BASIC  4  VERSION:  1  AUGUST  83 

1090  PRINT 

1100  PRINT-TINE  SESUIRED  TO  COMPLETE  LESSON:  About  1.5  hours' 

1110  PRINT 
1110  PRINT 

1130  PRINT-AUTHOR:  Capt  Danny  J.  Creaqan* 

1140  PRINT'  Air  Force  Institute  of  Technology" 

1150  PRINT 

1160  PRINT-OBJECTIVE:  To  teach  the  student  hcu  to  take  the  coiputer" 

1170  PRINT"  coMumcate  aith  standard  peripheral  devices.* 

1130  PRINT 

1190  PRINT 

1200  PRINT 

1210  PRINT 

1220  PRINT 

1230  INPUT’oress  the  ENTER  Lev  to  continue*: TS 
1240  CLEAR  200 

1250  LL  =  0  :’LL  IS  USED  FOP  HONOR  IN  OPEN  STATEMENT  SECTION 
1240  S3SU8  7020 
1270  8GSUB  7070 
1280  “PINT 

129v  pR1NT"A  1'j  tahng  this  oart  m  its  entirety." 

1300  PRINT’S  I  msh  to  revie*  selected  areas." 

1310  PRINT'C  I  want  to  go  to  the  second  part.’ 

I32C  PRINT'D  !  want  to  return  to  the  MENU.* 

1330  PRINT 

1340  INPUT "Press  either  capital  A,  B.  C.  or  D  and  then  press  ENTER' : T* 

1350  IF  TS  =  "C*  THEN  SOTO  7430 

1360  IF  TS  =  "O'  SOTO  7470 

1370  IF  :t  =  'S'  GOTO  1510 

I38C  IF  7»  >'A"  GOTO  1290 

1390  SQSUB  1620 

140)  50SUB  1960 

1410  SCSUB  2980 

1420  SOSUB  4630 

1430  S0SU8  4900 

1440  GQSUB  7020 

1450  PRINT' You  are  now  done  nith  this  lessor..  It  you  wish  to  continue” 
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1460  PRINT'to  the  test,  ENTER  a  T.  If  you  want  to  review,  ENTER  an  R.“ 

1470  INPtTENTER  your  choice'iTi 

1480  IF  Tt  =  -T-  THEN  GOTO  7510 

1490  IF  T$  =  -R-  THEN  RUN 

1500  80T3  1440 

1510  60SU8  7020 

1520  SQSUB  7070 

1530  PRINT 

1540  FRINT'Please  type  in  the  nu*ber  beside  the  area  you  wish* 

1550  PRINT'to  review  '.1  through  4)  and  then  press  ENTER  -  ENTER  a  0  to  go* 
1560  PRINT'to  the  MENU.  ENTER  a  5  to  go  to  the  second  half.* 

1570  PRINT 

1530  INPUT 'What  is  vour  choice“;N 

1590  IF  N  =  0  SOTO  7470 

1600  ON  N  SQSUB  1620  ,1960  ,2980,4630,7480 

1610  63TQ  1510 

1620  60SUS  7020 

1630  PRINT'  Introduction” 

1640  PRINT 

1650  PRINT"* In  trus  lesson  we  will  start  learning  how  to  co««unicate  with” 
1660  PRINT'our  disk  drives  and  printers.  The  first  section  deals  with" 
1670  f'RINT'srinting  our  proarass  on  a  printer.  Me  can  either  print  the' 
1630  PRINT'outout  lie  the  answer  that  our  progra*  calculated),  or  we  can- 
1690  PRINT'ormt  our  prograa  listing  to  a  printer.' 

1700  PRINT 

1710  PRINT'The  regaining  sections  will  show  us  how  to  store  data  on  a“ 

1720  PRINT'dist,  so  that  we  can  save  isportant  calculations  for  future" 
1730  PRINT-use." 

1740  PRINT 

1750  PRINT'Boch  sections  are  very  i*oortant  to  the  orograeter  and  you  ' 
1760  PRINT* will  find  vcurself  usina  the*  often.’ 

1770  PRINT 

1730  INPUTVess  ENTER'; T* 
l ’90  SQSUB  7020 

1300  PRINT’  Introduction* 

1310  PRINT 

1920  PRINT'Fro*  this  lesson  to  the  end  of  your  training,  we  will  be  * 

1830  PRINT-covering  areas  that  are  coaplex  and  difficult  to  re*e*ber.' 

1340  PRINT'Therefore.  we  recoeaend  that  you  have  vour  BASIC  tanual  with' 
1350  PRINT'you  at  all  t:*es.  Mhen  we  ask  you  a  Question,  and  you  are  not' 

1860  PRINT'sure  about  the  answer,  LOOK  IT  UP  IN  VOUR  MANUAL.  The  answer' 

1370  PRINT'will  also  be  in  the  lesson,  but  vou  should  get  used  to  using' 
1330  PR.’NT’the  aanual.  Vou  cannot  *e*ori:e  ail  the  rules  in  a  few  weeks* 
1390  PRINT'or  icnths.  So  be  sure  to  keeD  your  reference  book  handy,' 

1900  PR!NT"«hsther  .ou  are  taking  a  test,  or  taking  you r  own  progra*.' 

1910  PRINT 
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1920  PRINT'Reneaber,  looking  up  the  answers  is  not  cheating,  its  LEARNING. * 
1930  PRINT 

1940  INPUT'press  ENTER*; T1 
1950  RETURN 
1960  GGSUB  '020 

1970  PRINT*  LPRINT  4  LLIST* 

1980  PRINT 

1990  PRIVT’LPRINT  ana  LUST  allow  vou  to  output  infornation  to  the  line* 
2000  PRINT'printer.  They  are  extrenelv  single  to  use  ana  they  work  * 

2010  PRINT’alsost  exactly  like  the  PRINT  and  LIST  words.  There  are* 

2020  PRINT'only  a  couple  at  things  you  need  to  keep  in  «ind  when  you* 

2030  PR!NT“use  then.* 

2040  PRINT 

2050  PRINT’First.  nake  sure  the  printer  is  hooked  up  ana  turned  on.* 

2060  PRINT*  and,  it  vou  are  using  a  Cronenco.  nake  sure  the  * 

2070  PRINT"  arinter  is  LINKed  to  your  terninal.  (ask  your' 

2080  PRINT*  operator  how  to  use  the  LINK  connand.* 

2090  PRINT 

2100  PRINT’Second,  nake  sure  there  is  enough  paper  in  the  printer.* 

2110  PRINT*  to  do  your  whole  job.* 

2120  PRINT 

2130  INPUT*oress  ENTER*;T$ 

2140  805(18  7020 

2150  PRINT*  LPRINT  i  LUST* 

2160  PRINT 

2170  PRINT’To  LPRINT  a  SJRJN6  to  the  printer,  vou  nust  enclose  it  in* 

2180  PRINT’quotes,  just  like  the  PRINT  statenent.  tiher  vou  LPRINT  a* 

2190  PRINT'nunericai  variable,  you  do  not  enclose  it  in  quotes.* 

2200  PRINT'You  will  not  see  either  an  the  screen.  They  will  only  arint* 

2210  RRINT'on  the  arinter.  Exaaples  of  valid  LPRINT  statenents  are*.* 

2220  PRINT 

2230  PRINT*  10  LPRINT  *CHF.*(34) ’(NINTHLY  TRAINING  REP0RT*CHR$(34) 

2240  PRINT 

2250  PRINT*  10  A  =  10 
2160  PRINT*  20  LPRINT  A* 

2270  PRINT 

2280  INPUT'press  ENTER* ; T< 

2290  SQSUB  7020 

2300  PRINT*  LPRINT  i  LLI3T* 

2310  PRINT 

2320  PRINT'You  nay  LPRINT  TABs  also,  (cast  as  vou  can  PRINT  TABS)’ 

2330  PRINT’However.  the  TAB  function  reacts  differently  on  different* 

2340  PRINT’nachines.  The  general  fornat  for  LPRJNTing  a  TAB  is:' 

2350  PRINT 

2360  PRINT*  10  LPRINT  TA8U!*CHR»!34i*data*CHR»(34) 

2370  PRINT 
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2380  PRINT'Nhere  X  is  a  nueber  between  0  and  the  length  of  your  printer* 
2390  PRINT'carriage.  When  used,  the  carriage  will  go  over  X  coluens" 

2400  PRINT'before  it  starts  to  print.  3oae  coaputers  will  not  TAB  past" 
2410  PR!NT*8C  coiuans.  You  tav  wish  to  e*oeri*ent  with  yours  to  see" 

2420  PRINT’what  its  limitations  are.  Note  that  there  isn't  a  space  be-* 
2430  PRINT"t»een  the  TAB  cooand  and  the  data." 

2440  PRINT 

2450  INPUT'press  ENTER*; T* 

2460  SQSU3  7020 

2470  PRINT"  LPRINT  4  LUST* 

2480  PRINT 

2490  PRINT'LIIST  works  just  like  LIST  only  it  outputs  to  the  printer* 

2500  PRINT 

2510  PRINT'lt  is  nonallv  used  fro«  the  IMMEDIATE  aode  when  you  want' 

2520  PRINT'to  see  your  progra*  lines  on  paper  iit  is  so*eti«es  easier* 

2530  PRINT'to  find  'dues’  in  vour  prograe  if  you  can  see  it  on  a  piece" 

2540  PRINT'of  paper)." 

2550  PRINT 

2560  PRINT’LLIST.  and  LL1ST  100-400  are  valid  LUST  couanos.  LL1ST" 

2570  PRINT‘100-400  lists  lines  100-400  to  the  printer.” 

2580  PRINT 
2590  PRINT 

2600  INPUT'press  ENTER ";Tt 
2610  SGSUB  7020 

2620  PRINT'LPRINT  and  LUST  output  oata  to  the  printer  and  to* 

2630  PRINT  *  the  screen." 

2640  PRINT 

2650  PRINT" Is  the  above  sentence  TRUE  or  FALSE?" 

2660  PRINT 

2670  FRINT'A  TRUE" 

2680  PRINT'S  FALSE" 

2690  PRINT 

2700  INPUT'ENTER  the  letter  opposite  the  correct  answer  and  press  ENTER"; H 
2710  PRINT 

2720  IF  T*  =  "3"  THEN  GOTO  2750 

2730  PRINT'WRONS  -  LLPRINT  4  LUST  only  output  to  the  printer" 

2740  SOTO  2760 
2750  PRINT'CCRRECT" 

2760  PRINT 

2770  INPUT'press  ENTER"; T* 

2730  S0SUB  7020 

27°0  PRINT'Nhich  of  the  following  coaaands  will  LLIST  your  entire" 

2800  PRINT'orogra*  to  the  orinter'" 

2P10  PRINT 

2320  PRINT'A  LUST" 

2830  PRINT’S  LLIST  ALL" 
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2840  PRINT'C  LUST  'CHRI (34) 'AIL'CHR$(34> 

2850  PRINT'D  LUST  *CH«* ( 34> *  1  tn*CHft« <34 > *  (lfn  is  your  progra*  name)' 
2940  PRINT 

2370  INPUT'ENTER  the  letter  opposite  the  correct  answer*;T$ 

2890  PRINT 

2890  IF  T$=“A*  THEN  GOTO  2920 

2900  PRINT-WRONG  -  LLIST  is  just  like  LIST,  correct  answer  is  A* 

2910  SOTO  2930 
2920  PR  I  NT 'CORRECT* 

2930  PRINT 

2940  lNPUT'press  ENTER",  T* 

2950  GOSUB  7180 

2960  IF  T*  =  *B'  SOTO  1960 

2970  RETURN 

2980  GOSUB  7020 

2990  PRINT'  Seouential  Files  Intro* 

3000  PRINT 

3010  PRINT'Remember,  in  the  previous  lessons,  we  learned  that  we  could" 

3020  PRINT' INPUT  data  into  our  prograes,  but  that  the  data  was  not  stored’ 
3030  PRINT "permanently.  If  we  turned  the  machine  off  or  otherwise  endea" 
3040  PRINT'our  progra*.  all  the  data  that  we  ENTERed  was  lost.  If  we* 

3050  PRINT'wanted  to  RUN  the  orograe  aqam.  we  had  to  re-ENTER  the  data.' 
3060  PRINT 

3070  PRINT* In  the  rest  of  this  lesson,  we  will  learn  how  to  store  our  data* 
3C30  PRINT* that  we  ENTERed  an  a  disk  FILE.  When  we  do  that,  we  can  always* 
3090  PRlNT'recall  it  for  future  use,  and  we  won’t  have  to  keep  entering* 
3100  PRINT'the  saae  information  everytime  we  run  a  progra*.  He  just  have’ 
3110  PRINT'to  tell  the  proqra*  to  read  the  data  fro*  a  disk.  Our  life" 

212?  PRINT’with  our  computer  then  becoaes  much  easier,' 

3130  PRINT 

3140  lNPUT’press  ENTER* ? T< 

3150  SOSUB  7020 

3160  PRINT*  Sequential  Files* 

3170  PRINT 

3180  PRINT’A  disk  file  is  an  organized  collection  of  data,  such  as  a  " 

3190  PRI’IT'traininq  record,  or  a  mailing  list.  It  is  usuallv  composed  of* 
3200  PRINT* JUST  the  data,  and  nothing  else.  Progra*  statements  or  BASIC* 
3210  PRINT'words  are  normally  not  stored  m  file  format.' 

3220  PRINT 

3230  lNPUT'press  ENTER'; Tl 
3240  SOSUB  7020 

3250  PRINT’  Sequential  Files  * 

3260  PRINT 
3270  PRINT 

3280  PRINT'To  transfer  .ata  frc*  a  BASIC  proqra*  to  a  disk  file,  you  must* 
3290  PRINT'create  a  BUFFER  in  memorv.  The  data  is  first  transferred  to  “ 
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3300  PRlNT'the  SUFFER,  and  then  it  is  processed  and  written  to  the  disk. ‘ 
3310  PRINT'There  are  two  types  of  files  that  we  can  use  m  BASIC.  They' 
3320  PPINT'are  SEQUENTIAL  files  and  DIRECT  access  files.  He  will  only' 
3330  PRINT'eiplam  SEQUENTIAL  files  m  this  lesson.  If  vou  need  to  “ 

3340  PRINT' lean  DIRECT  access  files,  this  lesson  will  still  help  you" 

3350  PR INT “because  *any  of  the  coeeands  are  sisilar.  Tour  SASIC  ianual* 
3340  PRINT'will  explain  the  differences  '.DIRECT  access  is  often  called* 
3370  PRINT’RANDQN  access  by  soee  sanuals).* 

3380  PRINT 

3390  INPUT'oress  ENTER*: T* 

34CO  SOSUE  7020 

34*0  PRINT" 1 5  the  following  stateeent  TRUE  or  FALSE-” 

34 20  PRINT 

3430  PRINT'Sequentiai  files  do  not  need  a  BUFFER  in  ie«ory.  but  DIRECT* 
3440  “RINT’access  files  do." 

3450  PRINT 
3440  PRINT" A  TRUE' 

3470  PRINT’S  FALSE* 

3480  PRINT’S  I  DON’T  KNON* 

3490  PRINT 

3500  INPUT'ENTER  the  letter  opposite  the  correct  answer“;TJ 
3510  PRINT 

3520  IF  T*  =  *C*  THEN  GflSUB  7020:PRINT*f!ake  a  guess *: PRINT: SOTO  3430 
3530  IF  U  =  *B*  THEN  GOTO  3570 

3540  PRINT’NRONS  -  vou  ALKATs  have  to  create  a  BUFFER  in  *e»orv* 

3550  PRINT*  we  will  show  you  how  in  the  nest  parts  of  the  lessor,,' 

75ao  SC TO  3590 

3370  PRiNT’CQRRECT  -  we  will  show  vou  how  to  create  the  BUFFER  in  the” 

3330  5RINT*  nest  parts  of  the  lesson.* 

33*0  PRINT 

3400  INPUT’oress  ENTER*; T< 

3410  SGSU8  7020 

3620  PRINT’  Sequential  Files  * 

3430  PRINT 

3440  PRINT'Nith  a  sequential  file,  vou  oust  access  the  data  the  sane  wav* 
3450  PRINT* you  wrote  it  to  the  disk.  If  you  were  to  write  the  ages  of  * 
3460  PRINT'three  people  to  the  disk,  using  sequential  access  node,  vou* 
3670  PRINT'could  only  read  the  last  age  you  entered  by  reading  ages  one* 
3680  PRINT’and  two  first.  They  would  be  stored  in  a  line,  and  the" 

3690  °RINT"conputer  would  have  to  start  with  the  first  age  and  search* 

3700  PRINT'through  the  list  m  order,  until  it  found  the  last  age.* 

3710  PRINT'Even  though  this  is  not  a  fast  wav  of  handling  files,  the* 

3720  PRINT*co»outer  still  does  a  good  10b  of  it.  four  scores  for  the* 

3730  PRINT’previous  tests  were  logged  into  a  file  using  SEQUENTIAL  access* 
3340  PRINT'aode. * 

3750  PRINT 
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3760  INPUT'press  ENTER" ;H 
3770  S0SU8  7020 

3730  PRINT'If  you  wrote  two  nates  to  a  disk  file  using  SEQUENTIAL  access' 

3790  PRINT'eode.  could  vou  get  to  the  LAST  naee  you  wrote  without  reading" 

3800  PRINT'the  FIRST  nate  vou  arote''* 

3310  PRI.T 
3320  PRINT'A  YES" 

3330  PRINT'S  NO" 

3340  PRINT'C  I  aish  to  take  the  5th" 

3350  PRINT 

3360  INPUT'ENTER  the  letter  cpposite  the  correct  answer"; T$ 

3370  PRINT 

3330  IF  Tt  =  "C"  THEN  305U8  '020:  PRINT'Have  vou  alaavs  had  a  drinking  ?robies?":PRiNT:PR!NT"Trv 
again“.PR!NT:5QT0  3730 
3390  IF  T*  =  "B*  THEN  60TQ  3920 
3900  PRINT"NR0N6  -  the  correct  answer  is  6  * 

3»10  GOTO  3930 

3920  PR  I  NT "CORRECT  -  good  answer1* 

3930  PRINT 

3940  INPUT'gress  ENTER"; TS 
3950  SOSUB  7020 

3960  PRINT"  Sequential  Files  Intro" 

3970  PRINT 

3980  PRINf’The  stateients  and  functions  used  with  sequential  files  are:” 

3*990  PRINT 

1000  PRINT"  OPEN  °R1N7!  EOF" 

4010  PRINT"  CLOSE  INPUT!  CLOSE" 

4020  PRINT 

4030  PRINT‘Ne  will  5e  covering  these  words  m  greater  detail  in  the" 

4040  PR!NT"fclicwtng  sections.  You  don’t  have  to  »e»cri:e  thes  now.  just" 

4050  PFINr’iock  tne«  over.  General 1 ;.  you  would  OPEN  the  file,  eitner" 

4060  PRINT" INPUT!  vour  data,  or  PRINT!  it  out  to  the  disk,  and  then  vou" 

4070  FRINT'would  CLOSE  toe  file  before  going  on." 

408’)  PRINT 

4090  INPUT’press  ENTER"; T! 

4100  SOSUB  7020 
4;IU  SOS’JB  7230 

1120  PRINT’This  is  an  exasole  cf  how  to  create  a  SEQUENTIAL  tile,  write' 

4130  PRINT'soee  data  to  it.  and  then  CLOSE  it.  He  will  be  eiaeinmg  this" 

4140  PRINT'orograe,  and  a  companion  orograa  that  will  INPUT  data  froi" 

4130  PRlN‘"the  file  ae  created,  m  the  next  sections.  Generally  sneaking" 

4160  FSIST'kre  10  OPENS  the  file  (we'l!  exolain  acre  later;,  line  20" 

4J70  PRINT'asks  the  operator  to  INPUT  his/her  nar.e,  and  line  30  writes' 

4130  PRINT’the  na»e  out  to  a  file  called  ’TEST'.  Line  40  CLOSES  the  ‘lie." 

4193  PRINT 

4270  INPUT "oress  ENTER": Tl 
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4310  SOSUS  7030 

4330  PRINT'Sepuential  access  tiles  are  unites  to  a  disk  in  crier,  and* 

4330  PRINT  "van  cannot  access  a  piece  at  mfarsatipn  tro»  the  aiddle  at  the" 
4340  PRINT'riie  without  searching  through  all  the  records  Id r  data  pieces/' 
4350  PRINT 'fros  first  to  the  one  that  has  the  record  vou  want.' 

436c  PRINT 

43’0  PRINT ’Is  the  above  statesent  TRUE  or  FALSE"" 

4330  PRINT 
43%  PRINTS  TRUE" 

4300  PRINT'S  FALSE" 

4310  PRINT'S  Uhhh...  soeewhere  in-between?* 

4320  PRINT 

4330  INPUT'ENTEfi  the  letter  opposite  the  correct  answer"; Tt 
4340  PRINT 

4350  IF  Tt  *  'A'  GOTO  4410 

4360  IF  Tt  =  *C*  THEN  PSINT'Uhhhh...'; 

4370  PRINT'NP.ONG  -  This  is  a  Lev  concept,  please  20  PacL  and* 

4330  PRINT'  'eview  this  section  before  going  on.  You  will  be’ 

4390  PRINT'  given  the  opportunity  to  review  in  a  few  aoeents* 

4400  SOTO  4430 

4410  PRINT-CORRECT  -  THAT  MAS  IMPORTANT  TO  UNDERSTAND'" 

4430  PRINT 

4430  INPUT'oress  ENTER'; T$ 

4440  SOSUB  7020 

4450  PRINT’The  two  tvpes  of  file  aedes,  SESliENTIAL  and  DIRECT.'' 

4460  PRINT 

4470  PRINT "1 5  the  above  stareeent  TRUE  or  FALSE"’ 

4430  PRINT 

44?j  PRINT'A  TRUE' 

4500  HINT'S  FALSE1' 

4513  PO? 

4530  INPUT'ENTEfi  the  letter  conosite  the  correct  answer";Tt 
4330  PRINT 

4540  if  Tt  =  'A"  SOTO  4370 

4550  PRINT 'NRONG  -  the  two  scdes  ARE  called  SEQUENTIAL  ana  DIRECT' 

4560  GOTO  4530 
4570  PHINT'CORRECT  " 

4580  PRINT 

4570  INPUT'oress  ENTER'; Tl 

4600  6QSUS  7180 

4610  IF  Tt  =  'S'  SOTO  3930 

4620  RETURN 

4630  603116  7020 

4*40  PRINT'  OPEN  statement* 

4630  PRINT 
4660  SOSUB  7330 
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FRINT'In  the  above  prograa,  line  10  QPENs  the  file  we  wish  to  sake.' 
PRINT'Khenever  you  work  with  a  file,  you  MUST  OPEN  it  first,  then' 
PRIHT'sampulate  the  data,  and  then  CLOSE  it.  If  you  try  to  write' 
PRINT'DATA  to  a  disk  without  QPENing  the  file,  you  will  get  an  ERROR* 
PRINT’iessage.  (also,  don't  OPEN  a  file  that  is  already  OPEN;* 

PRINT 

PRINT 

INPUT'press  ENTER'! Tt 
GOSUB  7020 

PRINT'Can  you  OPEN  a  file  that  is  already  OPEN'” 

PRINT 

PRINT ‘A  YES' 

PRINT'B  NO' 

PRINT 

INPUT'ENTER  the  letter  opposite  the  correct  answer’lTN 
PRINT 

IP  T$  ='B'  THEN  GOTO  4360 
PRINT’NRCNG  -  the  correct  answer  is  B" 

SOTO  4370 
PRINT'CORRECT" 

PRINT 

INPUT'press  ENTER’ Hi 
GOSUB  7020 
30SJB  ’280 

PRINT'Line  10  OPENS  the  file  in  this  sanner:' 

PRINT 

PRINT “OPEW  is  the  keyword  that  signals  the  coaouter  to  eipect  three' 
PRlNT’sore  Pieces  of  inforaation.  The  first  piece  is  the  letter  'O'1 
PSINT'or  T.  '3'  stands  for  OUTPUT,  and  I  stands  for  INPUT.  The’ 
PRINT*ne.;t  bit  of  aata  is  the  BUFFER  nueber.  In  Microsoft  BASIC  you' 
PRINT’nat  nave  ua  to  3  buffers  no re  on  so»e  versions;.  For  our  our-" 
PRINT'poses,  we  will  use  buffer  41.  The  last  bit  of  data  is  the’ 
PRINT'f lienaae.  Notice  that  the  file  aode  and  filenate  are  in  Quotes' 
PRINT 

INPUT'press  ENTER'; T t 
GGSUB  7020 
SQSUB  7230 

PfiiMT'Ta  recao  then,  the  foraat  for  the  OPEN  stateaent  is:' 

PRINT 

PRINT*  OPEN  'CHR1 1 34 ! ' ( aodef 'CHR* i  34  ? ' , buf  f er  4, ”CHR*:34) ■ ;f ilena 
PRINT 

PRINT'!!  you  are  OUTPUTing  DATA  the  node  is  ’O’,  if  you  are' 

1  PRINT' INPUTing  data,  the  node  is  T.  You  can  have  up  to  3  buffers' 
PRINT'  .vcu  aust  declare  anv  buffers  over  3  when  workino  with  the  TRS-’ 
1  6RINT"30  rust  answer  the  BASIC  startup  dialog  with  the  correct  * 
JR!N!'n.»oer  of  files  -  3  is  the  default! .  The  filen*«»  oust  be  in' 


f:!ena»e)*CHR$i34) 
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5120  PRINT* quotes. * 

512?  PRINT 

5130  INPUT"oress  ENTER* ;T4 
5140  GQSUB  7020 

5150  PRINT’Nhat  are  tne  two  file  aodes?' 

5160  PRINT 

5170  PRINT'S  INPUT  and  OUTPUT* 

5180  PRINT’S  ■CHRJ!34)’I*CHRJ!34)*  and  *CHft*l34)*Q‘CHR*l34) 

5190  PRINT'S  1  through  4  and  4  through  8* 

5200  PRINT'D  None  of  tne  above* 

5210  PRINT 

5220  INPUT'ENTER  the  letter  ooposite  the  correct  answer*; T* 

5230  PRINT 

5240  IF  T$  =  *3“  THEN  60TQ  5270 

5250  PRINT “WRONG  -  the  correct  answer  is  8' 

52a0  GOTO  52S0 

5270  PRINT 'CORRECT  -  Nay  to  go" 

5230  PRINT 

5290  INPUT'press  ENTER* iT* 

5300  60SUB  7020 

5310  PRINT*  GPEN  statement* 

5320  PRINT 
5330  S0SU8  7350 

5340  PRINT’Here  is  an  exaaple  of  an  OPEN  statesent  ‘line  10)  that  opens' 
5350  PRINT’a  file  far  INPUT.  Notice  that  the  *ode  is  'I'.* 

5360  PRINT 

5370  PRINT'Alsc  notice  that  there  is  NOT  a  cosea  between  the  OPEN  woro* 
S3S0  PRINT'and  the  NODE,  but  that  all  the  rest  of  the  terns  are  separated* 
5390  PRINT’S v  a  cotta.  ‘ 

5400  PRINT 

5410  INPUT’oress  ENTER"; T* 

5420  GOS'JB  7C20 

5470  P^INT'Hhat  is  the  significance  of  file  aodes  ’0’  and  ' I ' ? * 

5440  PRINT 

5450  PRINT *A  'O’  tells  the  coaouter  that  you  are  going  to  write  to  disk* 

5460  PRINT*  ana  'I'  teils  the  coaouter  you  are  gotno  to  input  froa  disk* 

5470  PRINT 

5430  PRINT'S  'O’  tells  the  coaouter  that  the  files  section  is  ON  and' 

5490  PRINT*  ’V  tells  the  coaouter  that  /ou  want  to  INTERROGATE* 

5530  PRINT 

5510  PRINT'C  'O’  tells  the  coaouter  >ou  want  to  Oraanize  files  and  T* 
5520  PRINT*  tells  NASA  to  launch  the  shuttle.* 

5530  PRINT 

5540  INPUT “ENTER  the  letter  ooposite  the  correct  answer‘;T4 
5550  PRINT 

5560  IF  TJ  -  *A“  THEN  GOTO  5600 
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5370  IF  Tl  =  *C"  THEN  GOSUS  7020:Li  =  llPRINT'Starting  countdown  not* . ':PRIMT: INPUT'press  ENTER  for 

LAUNCH  back  to  the  question*; TIIGOTG  5420 
5580  PRINT “WRONG  -  the  correct  answer  is  A* 

5590  SOTO  54 10 
5600  PR  I  NT "CORRECT* 

5a  10  i  r.INT 

5620  INPUT'press  ENTER*;  Tl 

3630  IF  LL  =  1  THEN  PRINT:PRINT"FIV£  HOURS  TO  SHUTTLE  LAUNCH  ....  COUNTDOWN  CONTINUES0 IPRI.NT: INPUT“PRESS 
ENTER* ;T* 

5640  S03U8  7020 

5a50  PRINT*  OPEN  Stateaent* 

5660  PRINT 
5670  8GSUB  7290 

5680  PRINT'The  buffer  nutter  can  be  anv  nutber  between  I  and  3.  If  we* 

5690  PRINT’use  the  buffer  for  one  file,  and  later  we  OPEN  another  file  in* 

5700  PRINT’the  saee  prograt,  we  cannot  use  the  sate  buffer  nuaber.  It* 

5710  PRINT “ftUST  BE  DIFFERENT.  If  there  is  tore  than  one  file  OPEN  at* 

5720  PRINT’the  sate  tiae,  then  they  aust  be  using  different  buffers!!* 

5730  PRINT 

5740  INPUT'cress  ENTER*; Tl 

3750  IF  LL  -  1  THEN  PRINT:PRINT*FOUR  HOURS  TO  SHUTTLE  LAUNCH  ....  COUNTDOWN  CONTINUES ’‘.PRINT:  INFO '"PRESS 
ENTER*; Tl 
5760  GOSUB  7020 

5770  PRINT'How  aanv  files  with  the  sate  buffer  nutber  can  we  have  OPEN* 

5780  PRINT'at  the  sate  tiae?’ 

5 '90  PRINT 

5300  PRINT *A  ONE  8  TNO  C  THREE  D  FOUR* 

5810  PRINT 

5320  INFUT’ENTER  the  letter  oooosite  the  correct  answer"; Tl 
5870  PRINT 

5340  IF  Tt-"A*  THEN  GOTO  3370 

5330  PR INT “WRONG  !  the  correct  answer  is  A* 

5360  GOTO  3880 
5370  PRINT’CORRECT* 

5330  PRINT 

3390  INPUT’cress  ENTER’! Tl 
5900  GOSUB  7020 
3910  GOSUB  7230 

3920  PR INT  *  You  tust  enclose  the  filenate  in  ouotes  if  it  is  a  character” 

5930  PRINT'string.  However,  the  following  is  also  legal:* 

3 ’40  GOSUB  7420  ’ 

3950  INPLT’presS  ENTER*; Tl 
3',60  GOSUB  7020 
59 ’0  GOSUB  7420 

593/  PR  INT  "Note  that  a  STRING  variable  tay  take  the  dace  of  the  filenaae* 

5990  PRINT'AS  .3NS  AS  THE  STRING  VARIABLE  IS  SET  EQUAL  TO  A  VALID  NAHE  "* 


i 
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4000  PRINT 

4010  PRINT“lf  you  use  a  STRING  vai  .able  for  a  filenaae,  vcu  bo  not  enclose" 
4020  PRIN7":t  in  quotes.  Look  at  the  exaaole  above." 
c.030  PRINT 

4040  INPUT “press  ENTER"! Tl 
4050  S03UB  7020 


4040  F’RINT'Is  the  following  stateaent  valid?" 

4070  PRINT 

aOSC  PRINT*  10  OPEM*CHRI(34)*I*CHR«(34)*.2,*CHfi*(o4,’*X»*CHS*i34? 

4090  PRINT 
4100  FRINT'ft  YES* 

4110  PRINT’S  NO* 

4120  PRINT 

4130  INPDT’ENTER  the  letter  opnosite  the  correct  answer"; TJ 
4140  PRINT 

4150  IF  T$  =  *8"  THEN  SOTO  4130 

alaO  PRINT'NRONS  -  the  correct  answer  is  8.  HI  should  r.ct  have  quotes" 
4170  GOTO  6190 
4180  PRINT'CORRECT* 

4190  PRINT 


4200 

4210 

4220 

4230 

4240 

4-30 

4240 


s23C 


INPUTVess  ENTER* ; H 

IF  LL  =  1  THEN  PRINT:  PRINT  "THREE  HOURS  TO  LAUNCH  ....  CQliKTCCiiN  CQNTINliES'lPRINT." 
305U8  7020 
SOSL’B  7280 

PRINT  'When  line  10  '.PENS  the  tile  'TEST’,  the  csaouter  searches" 

5R!NT‘available  dish  soace  to  s-e  if  fe  file  alreadv  ensts.  IF  IT’ 

SR!« ’DOESN'T  EXIST,  rH£  COMPUTER  WILL  CREATE  V  AUTOMATICALLY <* “ 

PRINT' '.this  is  o.i lv  tr  e  for  the  OUTPUT  lode,  if  INPUT  aode.  the  file" 

PRIST’iust  hc»e  e::stee  creviousl*  or  SASIC  will  armt  an  ERROR!" 


; : 


NT 


PRINT'SEflENEER  ALSO. 


.ou  ,e 


EC  a  file  that  has  oreviousl. 


4310  FRINT'ieen  ooerea.  »ou  carrot  use  the  buffer  nutter  again 
:32o  PRINT 


•330  INPUT "oress  ENTER"! Ti 
434“  SOSOS  *020 


cGS'JE 

*28-) 

?Q[t\V 

If  the 

'TEST'  etista,  fen  line 

10  will  re-; 

;oen  it.  line" 

-RINT 

.•<.  rtia! 

*f: 

:tc  over  the  previous  data 

IN  THE  PILE, 

,  and  line' 

F^IT’ 

4j  H\i\ 

ISE  the  file.  EVEN  !c  THE 

FILE  WAS  SEN 

,'ERAL  THOUSAND 

! NT 1 

HCSDS  L 

CNG, 

AFTER  THE  ABOVE  PRC6RAH  1 

IS  RUN.  IT  Hi 

ILL  ONLY  BE'1 

rx1 

rtS  LUNG 

45 

THu  SPBE  THAT  NAS  ENTERED 

IN  LINE  20 1 

• 

fRIT 


o42  •  Eeauen’ial  files  tust  he  leaded  into  oeio r,.  sailed  stec  end1 
PPINT'ther  written  barf.  cut  in  their  entire*.,  vcu  cannct  just  write* 
444-.'  PRINT’S  single  record  onto  the  -root  c*  the  file  that's  on  the  disr.' 
-50  SRI*|T 


*****  Usti'tq  Of  Rroqraa  LESS0N4'  ***** 


64a0  INPUT’oress  ENTER”; T* 

44 70  SQ3U8  7020 

a480  PR!NT“*rite  n  the  stateeent  that  util  OPEN  a  tile  tor  OUTPUT  * 
3490  PRiNT’ara  use  hotter  nusber  3.  The  filenaae  is  TMG* 
a500  PRINT 

3510  ?RINT*Da  net  use  a  line  nuaser  -.altr.ouaii  »cu  nculd  naraailv).  < 
a520  PEIf!’"NGT  out  in  RNt  blanks.” 

3-;:.!  PRINT 

3540  LINE  INPUT 'ENTER:  your  ansaer  ?  "STS 
3550  FRIST 

a-4 ;•  S$*”QFES**CHS$ ■  34i*""**CHRt C4) ’-CHfti '.34 : * ‘TaiE-*‘CHP:i  34 
o3'0  ’5  s*Q?EN  “‘•CHPS'34-  ♦,"**CHR.S '.34;  3,  ”*CHP$  ,3V  *"T‘«iIG"*CHR$  ;!■ 

s5«V  IP  ’1*54  OR  TS  *  »S  THEN  3CTC  :43C 

3590  PRINT  aRCNG  -  this  section  is  hiPPicalt  tc  v.sualice  scaetises, 
33O1  ?RlNT‘ever.  it  is  .er,  :  sport  ant.  t'ou  sav  »isn  to  -e*:e«  it  at' 
33IO  PRiNT'this  cai;.  The  correct  answer  is:  *51 
3320  G3TG  Ss40 

3320  fRINT'Pac.lhus  ititnaat  a  ooebt  .-cu  are  a  br:;ra»»er  * 

334.-  PPINT 

3350  INPUT 'tress  ENTER”! T$ 

PPlNT"Wher  a  seauentiai  tils  is  GFENec  that  ‘eraerl*  had  .c*r 
3tS0  :RINT"trainin:  recorss  in  it.  a.no  *ca  cisr.'t  «ar.t  the  2ST4  :es 
sc5:  FRiNT''»‘at  host  .:c  ce  sure  tc  so'" 


PRIST 

£  1  ”v 

crinT'R 

Not  «nte  ih  the  si  sale  3*  the  tile  unless  it  is  «  as 

C  •  » 

-PI  V  '! 

IS'UT#  all  tne  aata.  sariociate  it.  then  RpJ.sTI  it  :a 

S  .  ‘  . 

?rin’“: 

Katrine.  cannot  OPEN  a  *i’e  that  »as  cre.iC’-S;.  : 

i  ?  3  /' 

:p:nt”: 

ririte  cnl;  c  the  EN2  a*  the  tils' 

jr5.' 

"  r  *.  7 

r .-  1  1 : 

c-b- 

INPUT -ENT 

ER  the  letter  ootosr.e  the  correct  answer  ;‘s 

.-*••• 

-PIT 

:‘E.' 

::  ’»**:*• 

-ye*}  SPTf  *3  ♦  '» 

*  w  j  >  w  « 

PRINT 'aRG 

t;G  -  the  correct  answer  is  5“ 

53j 

-QT-  ;  2  ” 

2d  K 

PRINT ’COR 

PEC* ' 

z31  ■ 

PRINT 

IN?I!T-:rs 

ss  ENTER”.’ Tt 

iTtPftlKT'SHl 


»♦♦♦*  -istir 


10C0  CLEAR  2C? 

FlO  SQStS  5I0C 
FiCO  5CSU3  5220 
1070  PRINT 

I  .'40  PRINT"*  Fa  taking  this  cart  m  its  entirety. * 

1050  PRINT’S  1  wish  to  rev ie<i  selected  areas  or  take  the  test).' 

1040  PRINT**  I  wart  to  return  to  the  ftenu. " 

l.'1)  PRINT’D  I  want  to  go  the  the  first  cart." 

PRINT 

FRO  INRLT’Fress  either  capital  A.  B.  C  or  2  and  then  cress  ENTER"! Tl 

II  F  IF  tj  =  *r«  3QTQ  5740 

i:u  if  r»  *  "s*  then  goto  5??o 

me  IF  Tt  =  *9*  GGTQ  1250 

1120  IF  T$  < ' *A“  GOTO  1040 

U40  BCS'JS  1360 

1150  G0SU3  1770 

IliO  50SUB  25S3 

ll’i  GGSUB  4650 

1120  GGSUB  5200 

HR'.*  PRINT "Tau  are  new  dene  with  this  lessen.  1-  veu  wise  to  continue'' 
I2C(  5RlN’"to  the  test.  ENTER  a  T.  If  vau  want  to  review.  ENTER  ar  RF 
521  >  INPUT ’ENTER  >.eur  choice";’! 

1220  IF  TS  s  f  THEN  GOTO  5730 
me  IF  T$  S  »Q •  ‘HEN  R'lN 

i  ■'2,j  ^njr,  « •  cjf 


1220  PRINT  '“lease  Fee  in  the  nuaber  beside  the  area  »:a  wish' 

!2?D  FRINT'to  review  F  through  5:  and  then  cress  ENTER  -  ENTER  a  0  to 
I’M  PRINT’to  the  SENu." 

1212  PRINT 

F23  INFL’T'lihat  is  /cur  choiceFN 

132I'  IF  N  -  0  GOT"  5740 

1740  GN  N  GGSt'c  ICiD  .17?)  .2530.4610.5790 

F 50  3uT2  125) 

Ful  GGSUB  5209 

if:  RF.IN7"  ClDSS  Stateeent" 

1330  :RINT 

F<e  5SINT"we  already  stated  cre.iousiv  that  the  CLOSE  statement  was'' 
Ml. i  PPINT’necessar,  after  veu  were  done  sameuiatme  veur  files.  If 
'.41.  RRINT”nas  a  ?ew  .'anations  Fat  are  r.ice  to  >now. 

; 4 2 R5 Iff’ 

1 4  F  MINT'  CLOSE  :iuf*er  i . 

;  14*;  so  IN* 


»(l( 


Listing  of  Pr ccraa  ' LESSCN4A'  nt** 
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460 

PRINT 

“wu* 

:er  nuaber.  If  ,ou  include  a  buffe 

r  nuaber.  ust  that  * 

470 

PRINT 

•fcuf 

fer  will  be  closed.  If  you  do  not 

include  a  buffer  nuaber 

-30 

PRINT 

'then  ALL  the  buffers  that  were  OPEN  wi 

11  oe  closed" 

*C£ 

PRINT 

500 

!NF'J7“:ress  ENTE?*;Tt 

510 

SI  = 

’OPE 

V  *CHR!  ( 34 )  *■  *0  "*CHR*  ’  34 ;  ,  3.  “  tCHRI 

"4)  *’3UEST!  ON*  eCHRt  1 34 

«2'.» 

3SSUB 

520 

PRINT 

•  C 

the  following  orooraa  valid  (lines 

20  i  30  are  c ood)“ 

540 

’"PINT 

550 

^RINT”!) 

"St 

I5o0 

PRINT*20 

INPUT  At* 

C7i‘. 

PRINT 

’30 

PRINT!’.. At* 

1530 

PRINT 

*40 

CLOSE" 

1590 

PRINT 

*w0 

“St 

1600 

PRINT 

1  d  1 ) 

PRINT 

lc*v 

PRINT'A 

TE3  it  is  valid’ 

1b30 

PRINT 

'3 

NO  it  will  fail  because  line  50  OPENS  a  file  alreadv  used 

1640 

PRINT 

1450 

INPUT 

“ENTER  the  lette'  ocoosite  the  correct 

answer *;Tt 

16  4  V 

PRINT 

to-? 

IF  v5 

=  1 

A"  ’HEN  GOTO  1710 

Ic3v 

PRINT 

“WRONG  -  file  13  ass  CuOSErf  &■/  ling  4'j, 

so  buffer  3  could  be" 

!s?0  PRINT*  used  scats  :n  lire  !('.* 

•*;.  3u TO  1729 

no  printtgrpec* 
prist 

;r:e  iNPtiT’srm  ENTER'irt 
;’4o  eas'js  5:40 
IT*;'  IP  Tl  *  *2*  SOTO  iOsv 
l'6v  RETURN 
I  '70  53SlJ9  5200 

1730  PRINT*  PRINT  I* 

I7PO  PRINT 
•300  SCRUB  5*60 

1310  PR  I  NT"  In  line  30  vie  PRINT  to  the  Pile  Suffer  '.that  we  OPENed  in  line* 
1320  PRINT* 10!  the  variable  Tt.  Notice  that  the  nuaber  to  the  right  oP  * 
133o  FRIST  ''the  PRINT!  corresponds  to  the  buffer  nuaber.  If  the  buffer" 
13-0  FPlNT'was  luiber  3.  then,  after  *e  GPENed  the  file,  we  would  " 

132,  PR;n"?r;nTI3.'$  m  line  30* 

I:s;  c?;n' 

IhrUT'oress  ENTcP";  Tt 
1330  3C3UE  52.'; 

*  3v,;‘  pCT\r  1  rSlMT  I" 

mo  PRINT 

19.;  rS;^T’PR;,r#  srints  -  teas  to  a  seoue.it:ai  dis*  Mie.  Men  \ou  first' 


! 

i 


*****  Listing  of  Progras  ’LES5QN4A'  ***** 
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L *20  ?R!NT“0PEN  tne  file,  the  ccaouter  sets  a  pointer  at  the  Beginning' 

1930  PRINT'of  the  file,  wnen  vcu  tell  the  coaouter  to  PRINT#  soaething,' 
1940  PRINT": t  starts  anting  data  to  the  disk  at  the  place  where  the' 
l?30  PRINPooirter  At  the  end  of  the  PRINT#  operation,  the  pointer' 
19*0  RRlNT'aovances.  so  values  are  written  in  sequence.  PRINT#  writes" 

1970  PR!NT"data  to  the  disk  aleost  exactly  tne  wav  PRINT  writes  data  to" 

1 980  PS  1ST ‘the  screen  or  CPRINT  writes  to  the  printer!." 

1 9*0  PRINT 

2000  INPUT" press  ENTER": TS 
2010  5Q3U5  5200 

2020  PRINT"  PRINT#’ 

2020  PRINT 

2040  PR’NT’Cosaas  and  sen -colons  react  the  saee  wav  with  print#  that  the/' 
2050  °R!NT'do  with  PRINT  statements.  If  vou  were  to  write  the  following* 
204v  FRINT"arcgra*:“ 

2070  PRINT 

2030  PRINT* 10  A=10.3" 

2/90  PR I NT ‘20  9=  20.2' 
to10o  PRINT 

2H0  PRiNT'tc  a  d i s k  using  PRINT#!. A, 8  (as  opposed  to  ?ft!.NT#l. AiB).  then' 
2120  PRINT*. -ou  would  out  this  or.  the  disk  :  10.3  20.2* 

2130  PRINT 

2I-1'  PRINT'See  the  extra  spaces'  These  are  13  blanks  that  SASIC  writes  to" 
2130  PRINT 'the  disk.' 

2 SC  :,R!NT 

2170  INPUT'press  ENTER";  !i 

2130  5QSU3  3100 

2D0  PRINT"BRINT#!.A.B” 

Z2%>  PRINT 

2210  PRINT'The  above  ccsmar.i  puts  this  on  disk  :  10.3  20.2“ 

2220  ®R!N' 

2230  PRINT*!#  vou  use  a  semicolon,  like  this.  sRINT#l.AiS  then  vou  cet:* 
2240  PRINT 

2230  PRINT*  10.3  20.2“ 

2240  "!NT 

2270  PRINT ’There  are  only  three  soaces  between  tne  nusbers.  So  to  sa.e* 
2280  PRINT'soace  on  the  disk,  you  »av  want  to  write  to  disk  using  seai-* 
2290  ?RINT'coIons  instead  of  coieas  between  your  variaPles.  Either  wav* 
2300  RRINT’will  work,  it’s  ;ust  that  the  coneas  cause  10  extra  blanks  to* 
2310  PRIJf’te  PRINT#  "d  to  the  disk.' 

2330  iSPUT'cress  ENTER*: T* 

2340  3GSUB  3200 

233'1  PPIST’what  is  wrong  with  the  following  orogru'* 

2340  RRINT 

237)  PRINT’D  OPEN#* EHR* f 34 ) n  I ‘EHR*  1 34 }  * .  I .  * CHR* •  34 ) " NEI#PRCG*CHR» » 34 ) 
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2380  PRINT*20  ?RINTIl,34;22;55* 

2390  PRINT-30  CLOSE  1* 

2JOO  PRINT 

2410  PRIMT'A  The  #ode  is  incorrect* 

2420  PRINT'S  The  file  butter  is  incorrect' 

2430  FRINT'C  vou  cannot  use  seiicoions  between  nutbers  m  a  PRINT** 

2440  PRINT'D  Nothing* 

24 SO  PRINT 

2460  IHPUT’Enter  the  letter  ooposite  the  correct  answer'iTJ 
2470  PRINT 

2460  IF  T*  =  “A"  30TG  2520 

24?Q  PRINT'WRCNS  -  The  correct  answer  is  A  -  the  acde  is  incorrect  for' 
2500  PRINT*  PRINTting.* 

2510  SOTO  2530 

2520  PRINT ’CORRECT  -  wav  to  SO!" 

2530  PRINT 

2540  INPUT ‘press  ENTER*; Tt 
2550  GOSU8  5360 
2560  IF  !*=*B*  SOTO  1770 
2570  RETURN 
2530  GOSUB  5200 

2570  PRINT*  INPUT#  1  EOF* 

2600  PRINT 

2610  PRINT* INPUT#  is  suiiar  to  the  INPUT  word  that  we  learned  earlier* 

2620  PRINT’onlv  it  INPUTS  data  fro*  a  disk  that  previously  had  data” 

2630  PRINT’crinted  to  it.* 

2640  °R!NT 
2650  GOSUE  5530 

2oj0  PRINT'The  forsat  for  the  INPUT*  stateaent  is  simlar  to  the  PRINT** 
1670  PRINT'statseent.  It  is:  INPUT#  (buffer*). (variablel) . (var2) . (etc) ' 
2450  PRINT 

269C  INPUT'oress  ENTER*! T» 

2700  SOSU?  5200 

2710  PRINT  *  INPUT#* 

2720  PRINT 

2730  PRINT” INPUT#  incuts  data  Pros  a  sequential  disk  file  and  stores  the' 
2740  PRINT'data  in  a  /ariable.  INPUT*  doesn’t  care  how  data  was  claced  on” 
2750  PRINT’the  disk.  It  could  have  been  put  there  with  one  PRINT** 

2760  PRINT'or  twentv  PRINT*  statements.  SWAT  RATTERS  TO  INPUT*  IS  HON  THE* 
277.'  ?r;nt“DATA  IS  TEFRINATED  ON  THE  DISK.  AND  MAT  KIND  OF  DATA  IT  IS* 

2"80  'PINT* INPUTTING. * 

;tj.i  rrint 

23)0  INPUT'press  ENTER'! T* 

2SiO  GOSUB  5200 

2820  PRINT ’Does  the  INPUT#  stateaent  check  to  see  how  the  data  was” 

2330  PPINT’oiacei  on  the  disk,  or  dees  it  check  to  see  how  the  data  is’ 
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2340  PSINT'teramateo?" 

.Bjo  rr.iin 

2360  PRINT* A  It  only  checks  to  see  how  it  was  ter* mated  -  it  doesn’t* 

23’0  PRINT"  care  how  the  data  got  there." 

2330  PRINT 

23?0  PRINT'S  It  checks  to  see  ha*  the  date  was  placed,  it  aakes  a  * 

2900  PRINT*  difference  how  sany  PRINT!  stateaents  were  used." 

2910  PRINT 

2920  PRINT’C  Now  THIS  Question  is  easy.  Just  give  ae  a  second  and  I’ll* 

29l'i  PRINT'  think  of  the  answer.  Hau,  let’s  see. ...ho,  don’t  tell  *e..“ 

2940  PRINT 

2950  INPUT'ENTER  the  letter  opposite  the  correct  answer*;T! 

2°S0  PRINT 

2970  IP  U  r  'A*  THEN  SCT0  1010 

2930  IF  TJ  =  *C“  THEN  PRINT'TINES  OP"  ..  because  vou  took  so  such  tiae,  vou  get  the  answer 
2990  PRINT'NRONS  -  the  answer  is  A’ 

3000  6CTC  3020 

3010  S’ IN! 'CORRECT  -  gooo  job* 

3020  FP.INT 

3030  INPUT 'press  ENTER* 5 T* 

3040  303113  5200 

3053  PRINT*  INPUT!  4  EOF* 

3060  PRINT 

3070  PRINT" If  we  are  mouthing  3TR1NS  data  lour  variable  is  a* 

3080  PRINT-STRING  such  as  INPUT#!, Nil.  INPUT!  starts  nutting  data  into' 

3090  PRlNT'the  /ariasle  starting  with  the  first  NON-SPACE  it  encounters* 

3100  PRINT*m  tne  file,  and  ending  when  it  encounters  a  carriage  return  or" 

3110  PRIKT'a  ccsaa.  or  EOF  darker  Here  about  EOF  later)." 

3120  PRINT 

3130  PRINT’If  the  iariable  is  nuaeric.  then  INPUT!  fills  the  variable  with* 

3140  PRlNT'the  first  character  that  is  not  a  soace  or  carriage  return," 

3150  FRINT’and  stoos  when  it  encounters  another  space,  cseaa.  or  carriage" 

3160  PRINT’return  or  EOF  aarker." 

3170  PRINT 

3130  INPUT "or sss  ENTER"! TS 
3190  SOSUS  5200 

3200  PRINT”  INPUT!  and  EOF" 

3210  PRINT 

3220  FRINT“Here  is  an  uoortant  concept  to  understand  about  how  INPUT!" 

3230  PR  I  NT 'work  s  when  vou  use  STP.INSs.  IF  T0U  PRINT  A  STRING  TO  DISK.  AND" 

3240  FR:NT”VQU  PRINT  A  NUMBER  KITH  IT.  IT  WILL  LOOK  LIKE  THIS  ON  DISK:* 

3250  PRINT 

3260  CRINT*  STRING  DATA  HERE  WITH  NUMBER  FOLLOWING  't.OOl 

3270  PRINT 

3230  PRINT’IF  iQU  INPUT  THIS  DATA,  YGU  MUST  INPUT  IT  USING  A  STRING  VARIABLE. * 

3290  PRINT'WHEN  'GO  DO.  THE  COMPUTER  WILL  PACK  THE  STRING  WITH  ALL  THE  DATA" 
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3300  PRINT'ON  THE  LINE.  '.INCLUDING  THE  NUMBER' I  BECAUSE  A  STRIN6  INPUT  DOES' 

3310  PRINT'NOT  RECG6NI2E  SPACES  AS  TERMINATORS,  IT  ONLY  RECOGNIZES  CARRIASE* 

3320  PRINT-RETURNS  AND  COMMAS!* 

3330  PRINT 

3340  PRINT'Wiy  is  this  lsportant'’  Because  you  wrote  the  data  to  disk  with* 

3350  PRINT'TNO  variables,  and  you  read  it  back  with  only  ONE.  If  you  tried* 

3360  PRINT'to  read  the  nueber  after  vou  read  in  the  string,  you  would  not* 

3370  PRINT'fmd  it  1  ' 

3330  PRINT 

3390  INPUT'press  ENTER* ; Tt 
3400  S03UB  5200 

3410  PRlNT'The  solution  to  tne  croble*  of  how  to  write  STP.IN6  data  and" 

3420  PRINT “NUMERIC  data  to  disk,  is  to  separate  the*  with  carriage  returns* 

3430  PRINT* tor  ENTERs 7 .  That  wav  you  can  read  the*  back  with  INPUT*" 

3440  PRINT'statesent  in  the  sa»e  wav  vou  wrote  it.  For  example,  if  you* 

3430  ?R!NT‘write  a  string  and  a  nu*ber  to  disk,  do  it  this  way:' 

3440  PRINT 

3470  PRINT  *  1 0  .  orogra*  assu*es  file  opened  correctly . * 

34SO  PRINT ‘20  ?R!NT»1,*CHR*:34> ‘PRINT  THE  STRING  WITH  ONE  uINE  and  the  nu»ber  with  another. *CHR$(34 
3490  PRINT '30  PRINT#!,  1001" 

3300  PRINT 

3510  PRlNT'And  when  vcu  read  it  back,  use  two  separate  state*ents.' 

3520  PRINT 

3330  PRINT* 10  INPUTIt.At* 

3540  PRINT*20  INPUT# l . N* 

3530  PRINT 

3340  PRINT “ Thu 5  will  sol/e  the  c-rooles  of  nunc  strings  ana  nu»bers  on  disk." 

Tj’O  PRINT 

3530  INPUT'press  ENTER":  Tt 
3590  3GSUB  5200 
3400  GOSUP  3330 

3al0  PRINT  *  I f  we  were  to  run  this  orogra*.  and  the  na*e  that  was  in  the* 

3420  PRINT* fi rst  record  in  the  Rile  was  ’DANNY  JGE'.  line  20  would  start* 

3s3)  PRINT'with  the  first  bvte  of  the  first  record  that  was  not  a  space* 

3440  PRINT" or  a  carnage  return,  and  load  Nt  with  it,  it  would  continue* 

3450  5RINT"loading  Nt  until  it  encountered  either  a  carnage  return  or  a* 

3440  PRINT*coa»a.  If  the  data  contained  a  ouoted  character  string,  then’ 

3470  PRIHT’all  the  data  between  the  quotes  would  be  stuffed  into  Nt  * 

3480  PRINT* 'unless  a  co»*a  or  carnage  return  were  encountered! . " 

3690  PRINT 

3700  INPUT’press  ENTER*; Tt 
3710  503U3  5200 
3'20  605US  5530 

3730  PRINt’Eventuallv,  and  very  auicklv.  the  string  would  be  loaded  with" 

3740  PRINT’the  characters  'DANNY  JGE’,  and  line  30  would  print  the*  out.' 

3750  PRINT 
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?RINT“But  what  would  hapoen  if  there  was  nothing  in  the  tile’’” 
PRINT’The  INPUT!  statement  in  line  20  would  encounter  the  EOF  sarker' 
PR!NT“ano  an  ERROR  would  be  returned  saving  that  the  computer  tried' 
PRINT’to  input  data  that  wasn’t  there.' 

PRINT 

PRINT" rhere  is  a  wav  to  test  to  see  if  the  file  is  at  the  end  or  if" 
INPUT'it  is  espty.  Press  ENTER  to  see  what  it  is':T$ 

SOSUB  5200 

PRINT'The  very  first  thing  a  coeouter  does  when  it  OPENS  a  file,  is" 
PRINT'it  puts  a  aarker  on  the  end  of  it.  The  earker  is  called  an  EOF" 
PRINT'aarker,  If  we  wanted  to  find  out  if  the  end  of  a  file  had  been' 
PRINT'reached.  or  if  the  file  was  eepty,  we  would  test  it  like  this:* 
PRINT 

SOSUB  3430 
PRINT 

INPUT "cress  ENTER": Tl 
SOSUB  5200 
ECSUB  3630 
PR1NT 

PRINT" I f  we  had  printed  a  thousand  and  one  nates  into  the  file  ’TEST” 
PRINT'the  coeouter  would  put  the  EOF  sarker  in  place  I  1002.  and' 
PRlNT’when  we  used  the  EOF (buffer  *)  test  after  na*e  i  1001,  control" 
PRINT'wculd  pass  to  line  60.  All  the  nases  would  have  been  printed'" 
PRINT "Notice  that  we  never  re-GPEN  a  file  if  we  haven't  CLOSED  it." 
PRINT "If  we  tried  to  re-GPEN  an  already  OPEN  * i 1 e,  we'ld  get  an  ERROR' 
PRINT 

INPUT 'press  ENTER" » T t 
SOSUB  5200 

PRINT"  INPUT!  and  EOF' 

'  PRINT 

PRINT ' The  fcrsat  for  the  EOF  statesent  is  :’ 

PRINT 

PRINT'EQF (buffer  !)' 

1  PRINT 

FRINT'Nhere  buffer  nusber  corresponds  to  the  buffer  nusber  of  the  ' 
PRINT’file  you  are  testing  ." 

PRINT 

PRTNT'Reseaber  to  onl.  use  the  EOF  test  on  a  file  that  is  OPEN  !" 

PRINT 

INPUT'press  ENTER'; T! 

SOSUB  5200 

PRINT'Supoose  we  have  a  file  called  ’TEST’  that  is  full  of  nuaeric" 
PRINT'data.  Xhat  is  wrong  with  the  following  prograa  if  we  were' 
PRINT'trying  to  print  the  file  out  to  the  screen?' 

PRINT 

PRINT'iO  OPEN'CHR! ■ 3! : " I "CHR! (34) ' , 1 , *CHR! ! 34 : 'TEST 'CHR! (34! 
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4220  PRINT"20  IF  EDF ( 1 )  THEN  STOP* 

4230  PRINT-30  INPUTil.N* 

4240  FRINTNO  PRINT  N* 

4250  PRINT"50  GOTO  10* 

4260  PRINT 

4270  PRINT’S  Nothing* 

4280  PRINT’B  If  ’TEST-  is  eiptv,  the  EDF  check  won't  catch  it* 

4290  PRINT'D  Line  50  should  oe  SOTO  20* 

4300  PRINT'D  The  file  lode  is  incorrect* 

4310  PRINT 

4320  I NPUT “ENTER  the  letter  opposite  the  correct  answer*;TS 
4330  PRINT 

4340  IF  Tt  =  *C“  THEN  SOTO  4380 

4350  PRINT“WR0N6  -  The  problei  is  that  the  progra*  trvs  to  re-QPEN  the* 
4360  PRINT*  file  that  hasn't  been  CLOSEd.  Correct  answer  is  C* 

4370  SOTO  4390 
4380  PRINT ’CORRECT ’ 

4390  PRINT 

4400  INPUT'press  ENTER- ; T* 

4410  SOSUB  5200 

4420  PRINT'Nhat  is  wrong  with  this  prograi?" 

4430  PRINT 

4440  PRINT*  10  GPEN*  CHR*  ( 34 )  “  I  *  CHR*  ( 34 )  * .  1 .  *  CHR«  <  34  >  *  TES  T  *  CHR$  1 34  > 

4450  PRINT* 20  IF  EOF < 2 )  THEN  STOP* 

4460  PRINT-30  INPUTil.Nt* 

4470  PRINT "40  PRINT  NS* 

4480  PR  I  NT *50  SOTO  20* 

4490  PRINT 

4500  PRINT’S  The  arena  buffer  nueber  is  used* 

4510  PRINT'S  Nothin;*’ 

4520  PRINT’D  There  is  no  END  stateient" 

4530  PRINT 

4540  INPUT'ENTER  the  letter  opposite  the  correct  answer"; Tt 
4550  PRINT 

*560  IF  Tt  =  *fl*  THEN  SOTO  4590 

4570  PRINT” NRQN6  the  correct  answer  is  A* 

4530  SOTO  4600 
45°0  PRINT'CORRECT" 

4600  PRINT 


4610  INPUT'press  ENTER" : Tt 
4620  30SUB  5360 
4630  IF  Tt=“6*  S0T3  2580 
4o40  F.ETURN 
4650  6Q3UB  5200 


4660  PRINT* 
4670  PRINT 
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4630  PRINT’In  this  lesson  we  have  learned  a  great  deal  about  file  input' 

4690  PR  1ST* and  output.  However,  there  is  a  great  deal  of  inforeation* 

4700  PRINT” that  we  have  not  covered.  * 

4710  PRINT 

4720  PRINT'The  purpose  of  this  lesson  was  to  introduce  vou  to  the  fund-" 

4730  PRINT“da»ental  ideas  behind  seouential  files.  Vou  should  coabine* 

4740  PRINT’this  knowledge  with  the  previous  lessons,  and  do  soae  outside* 

4750  PRINT  *  studvi no  on  your  own.  After  vou  take  the  test,  you  will  be" 

4760  PRlNT"given  an  assignaent  that  will  include  aany  of  the  techniques" 

4770  PRINT’we  have  already  learned.* 

4730  PRINT 

4790  PRINT’On  the  following  pages,  there  is  a  orogra*  that  uses  what  we" 

4300  PRINT'have  learned  in  this  lesson.  Study  it  carefully.* 

4310  INPUT'press  ENTER*! TJ 
4320  G0SUB  5200 

4830  PRINT’The  purpose  of  the  orograa  on  the  following  page  is  to  update* 

4340  PRINT'a  data  fiie  that  contains  STRING  data.  It  reads  in  a  file* 

4350  PRINT'and  siaultaneouslv  writes  out  the  saae  data  to  a  different* 

4860  PRINT “file.  Hhen  you  update  a  file  this  way,  you  end  up  with  an* 

4370  PRINT'updated  file  that  has  a  different  na»e  than  the  one  vou  started* 

4880  PPINT'with.  While  vou  are  studying  the  prograi,  think  about  how* 

4890  PRINT'vou  would  do  it  without  chanqing  the  filena«e.” 

4900  °RINT 

4910  FRINT“HINT:  the  prcgras  would  have  to  read  the  data  into  an  array" 

4920  PR!NT*anq  then  add  data  onto  the  array,  and  finally  write  the  whole* 

4930  PRINT “ array  tack  out  to  the  old  file.* 

4940  PRINT 

4950  PRINT’Ncte  how  the  consents  are  inserted.  Leer  up  «hv  this  is  legal* 

49«0  PRINT*! n  your  BASIC  sani’3'  vou  aav  be  surprised  '* 

4970  PRINT 

4980  INPUT'press  ENTER* t TN 
49 5 0  S3SUB  5200 

CoOd  oRINT*10  CLEAR  500  .''Clears  string  space” 

5010  PRINT *20  INPUI*CHR*!34> 'Incut  fiienaae’CHRt'34!*;!!* 

5020  PR  INI *30  !NPUT"CHR*(34: -Output  filenase'CHR* (34)*;3$* 

5030  PRINT* 40  OPEN’CHRI (34 ; " I *CHRt ! 34 ) " , 1.1$  :’0PEhs  the  INPUT  file* 

5040  PRINT ’50  CPEN'CHRt t 34 ) “O'CHfil (341 *.2. 05  :  OPENs  the  OUTPUT  file* 

5050  PRINT'60  IP  EGFdi  3CTC  130  t’Checks  for  end  of  file  in  file  #1* 

306U  PRINT'70  INPUT#:, 21  : ’ INPUTS  data  fro#  file  #1* 

50 ’C  PR! NT *80  PR1NTI2, D1  '.’PRINTS  data  to  the  new  file* 

5030  PR!NT”9i>  GOTC  60  :'3oes  back  tor  sore  fro*  - 1 1  e  41* 

5090  PRINT* 100  INPUT*CHR1!34) ’ENTER  DATA  (enter  999  to  stoat  *CHR1’.  34)  *!Dt" 

5100  PRINT"  110  IF  01  *  "CHR«'.34!  *?99“CHR1S34!  *  GOTO  140“ 

5120  PRINT*  120  ®RINf#2.0*  .''Updates  new  file  with  /our  data’ 

5120  PRINT "130  5CTC  i'.'O  '.‘Goes  back  until  line  '.10  sees  90vj 

3130  PRINT  * l JO  CLOSE” 
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3140  PRINT 

5130  INPUT’We  assuae  a  legal  input  Tile  previously  existed. ..oress  ENTEP.’iTl 
5160  SOSUB  5360 
5 1 70  IF  T$="S*  SOTQ  4650 
5180  RETURN 

5190  REN  *♦  This  subroutine  clears  the  screen  on  any  tersinal 
5200  FOR  t  =  :  TO  24 
5210  PRINT 
5220  NEXT  < 

5230  RETURN 

5240  REN  **  This  is  the  aenu  subroutine 
5250  PRINT’  LESSON  4' 

5260  PRINT 
5270  PRINT 

5290  PRINT'This  is  the  second  part  of  a  two  part  lesson.  It  is  divided" 

5290  PRJNT’mto  the  following  sections:’ 

5300  PRINT 

5310  PRINT* II  CLOSE  31  INPUT#  4  EOF" 

5320  PRINT'2)  PRINT#  4!  SUtIHARr" 

3330  PRINT"  5!  TEST’ 

5340  RETURN 

5330  REN  **  This  subroutine  lets  student  review  a  section 
33s0  GOSUS  3200 

3370  FRlNT’klhich  dG  you  hi sn  to  do!” 

5330  PRINT 

5390  PRINT’S  Continue  on* 

5400  PRINT’S  Review  this  section  again" 

34  ly  PRINT 

3420  lNP|JT''press  the  letter  opposite  the  correct  answer  and  press  ENTER*: Tt 
5430  Ic  Tl  =  ’A’  OR  T$  =  ’B’  THEN  RETURN 
5440  GOTO  53aO 

5450  REN  *»  this  subroutine  is  far  sequential  intro,  e* aisle 
3460  PRINT"  10  OPEN  •CHR*!34)’0’CHfi$(34)*.!.’CHR*'.3H*TEST*CKP$w4! 

3470  PRINT* 20  INPUT’ CHRIS 34! ’Type  m  your  naie  and  press  ENTER’CHRl ■ 3*/ ’ : T$‘ 
5430  PRINT’30  PRINT#!. II* 

3490  PRINT’42  CLOSE  1* 

5500  PRINT 
3310  RETURN 

3320  REN  »*  This  subroutine  is  tor  the  sequential  files  intro  ex<.«ole 
5530  PRINT*  10  OPEN  ’CHRI ; 34) ' I “EHP# ! 34 ' * , 1 .  'C.HRI S 34 1  'TEST  J,2HRI (34 ; 

5540  PRINT’20  INPUT#!. IK" 

3550’  PRINT*!-;  Pc  1ST  \l" 

3*6 /  PRINT '40  CLOSE  1’ 

33*0  PRINT 
333')  RETURN 

359':  REN  »♦  This  subroutine  is  tor  the  OPEN  stateients  exaisle 
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07/10/83  -  02:20123 


> 

i 


5600  PRINT 

5610  RRINT'IS  A*  =  ■ CHR*  1 34  > ‘ TEST  *  CHR*  1 34 ) 

5620  PRINT'ZO  OPEN  "CHR»t34) “Q“CHR*(34? *, 1, A*J 
5630  PRINT 
5640  RETURN 

3 (,50  PRINT"  10  QPEN*CHRt  1 34 1  *  I 'CHRI 1 34 ) * . 1 ,  'CHR*  (34 1  * TEST'CHPS ( 34 1 
5660  PRINT'ZO  IF  EGF ; 1 !  THEN  GOTO  60* 

5670  PRINT *30  INPUTI1.N** 

5680  PR I NT “40  PRINT  Nt* 

56R0  PR  I NT “50  GOTO  20* 

5700  PRINT ‘60  PR1NT*CHR*(34/“END  OF  FILE  ENCuUNTERED*0HR*'.34) 
5710  PR!NT‘70  CLOSE  1* 

5720  FRINT* . sore  of  tne  progras  or  an  END  statesent* 

5730  RETURN 
5740  RUN  “MENU* 

5750  PRINT 

5*60  -PINT’SQINS  TO  THE  FIRST  PART  -  HA  IT  ONE  FOMENT  * 

5770  SUN  *LESS0N4“ 

5730  50SU6  5200* 

3790  PRINT'Somg  to  TEST  4  -  please  standSv" 

5800  RUN  *TEST4* 

5310  END 


r 

N 

t 
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*♦♦♦♦  Listing  of  Pragma  ' TEST4’  *****  07/10/83  -  02:58 


1000  REN  ** 

1010  SEN  **  lesson: 

TEST4 

VERSION:  I  AUS  33 

1920  REN  ♦*  AUTHOR: 

CAPT  DAN 

CREASAN 

1030  REN  t* 

1040  REN  ft 

AIR  FORCE 

INSTITUTE  OF  TECHNOLOGY 

1050  REN  **  VARIABLES: 

1060  REN  u 

N$U> 

=  NANES  ARRAY.  USED  TQ  READ  IN  SEQ- 

1070  REN  h 

UENTIAL  NANES.  AND  TO  WRITE  OUT 

1080  REN  »* 

UPDATE  NANES. 

1090  REN  *» 

SUf 

=  SCORES  ARRAY  -  USED  TQ  READ  AND 

1100  REN  ** 

WRITE  SCORES 

1110  REN  ♦* 

fit*) 

=  ARRAY  TO  KEEP  TRACK  OF  NUNBEP.  OF 

1120  REN  ** 

CORRECT  ANSWERS.  IF  AN  ARRAY 

1130  REN  ♦♦ 

ELENENT  EQUALS  1.  THE  ANSWER  NAS 

1140  REN  »♦ 

1150  REN  ** 

CORRECT 

1140  CLEAR  3000 
! 170  6QSU8  4400 
1130  C!«  Nil  1000! 

iioo  cm  at io) 
izoo  am  stiooo) 

1210  PRINT*  FINAL  TEST  (lessor,  4)* 

1220  PRINT 

1230  PRlNT'This  test  consists  of  10  questions,  you  oust  get  70  percent’ 

1240  PRINT "of  thee  correct  to  pass,  (that’s  7  right  out  of  the  10  dues-" 
1250  PRIHT’tions).  Use  only  capital  letters  in  vour  answers,  don't" 

1240  PRINT‘indude  extra  soaces  or  letters.  Khen  you  successfully  coeolete’ 
1270  PRINT’the  test.  you  mil  be  giyen  a  hoeenork  assigneent  that  mil" 

1230  PRINT’brmg  sanv  things  together  for  you.  GOOD  LUCK'* 

1270  PRINT 

1300  iNPUT’cress  ENTER  to  ccntmue*;T» 

1310  603UB  4400 

1320  PRINT’When  you  LPRINT  data  you  sust  be  sure  the  printer  is  on,  has” 
1330  PRINT'enough  oaoer.  and  is  properly  connected.  LPRINTing  does  not" 
1340  FRINT’serd  cutout  to  the  screen." 

1330  PRINT 

1360  PRINT’ Is  the  above  paragraoh  TRUE  or  FALSE?” 

1370  PRINT 
1380  FRINT’A  TRUE* 

1390  PRINT "8  FALSE" 

1400  PRINT 
14 If  G0SU8  4470 
1420  PRINT 

1437  IF  Ti  =  *A“  THEN  SOTO  1470 

1440  PRINT’NRONS  -  the  cc. rect  ansaer  is  A" 

1450  PRINT"  part  1.  LPRINT* 
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Listing  of  Progra*  ' TCST-* ‘  ***** 


07/10/83  -  02:53:37 


1440  SGTQ  1490 
1470  PR!ST*CCR«ecr’ 

1430  8!!)  =  1 
im  PRINT 

1500  INPUT‘press  ENTER";!* 

1510  SOS as  4400 

1520  PRINT'What  is  the  coaiand  to  list  your  progra*  to  the  printer"” 

1530  PRINT 

1540  PRINT'S  LPRINT  ‘CHR<(J4l*(filenase)‘CHR*(34S 
1550  PRINT’S  LIST  “CHR*!34> ‘ !f ilena*e>"CHRtl34i 
1540  PRINT’C  LUST" 

1570  PRINT’D  None  of  the  above' 

2580  PRINT 
1590  603UB  4470 
1600  PRINT 

1610  IF  It  =  "C*  THEN  SOTO  167C 

1620  PRINT’WRONG  -  the  correct  answer  is  C* 

1630  PRINT'  Answer  A  would  print  the  word  'filena*e:  to  the  * 

1640  PRINT"  printer,  answer  8  would  cause  a  syntax  error  in  BASIC.' 

1650  PRINT"  See  part  1.  LLIST." 

1860  GOTO  !6°0 
1470  PRINT'CORRECT" 

1680  3(21  =  i 
1690  PRINT 

1700  INPUT’press  ENTER” » T$ 

1710  SOSOS  4400 

!'20  PR!NT"V3u  aav  access  the  aidole  record  of  a  sequential  file  without’ 
1730  PRINT’readma  in  the  records  that  are  in  front  of  it." 

1740  PRINT 

1750  PRINT* I s  the  above  stateaent  TRUE  or  FALSE" 

1760  PRINT 

1770  ?R!HT“A  TRUE" 

1780  PRINT'S  FALSE" 

1790  PRINT 
1800  GOSUB  4470 
1310  PRINT 

1320  IF  T<  =  "8"  THEN  SOTS  1880 

1330  PRINT'NRONS  -  the  correct  answer  is  B’ 

1340  PRINT*  The  only  wav  to  access  a  record  in  the  siddle  of  the" 

1350  PRINT*  file  is  to  read  the  records  in  front  of  it." 

I860  PRINT*  Gee  part  1,  Sequential  Files.” 

1370  SOTO  1900 
1330  PRINT’CGRRECT" 

1890  5 (3!  =  I 
1  •- >0  PRINT 

;<*!/■  INPUT "ores5  EHTEf>";Tt 
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1920  S0SU8  4400 

1930  PRINT'To  transfer  data  from  vour  file  to  a  disk,  the  computer  must  * 
1940  PRINT" first  send  the  data  to  a  buffer  where  it  is  processed,  the  same’ 
1950  PRINT “is  true  for  transferring  data  f roe  the  disk  back  to  the" 

1960  PRINT'comouter. " 

1970  PRINT 

1980  PRlNT'Is  the  above  paraoraah  TRUE  or  FALSE?* 

1990  PRINT 

2000  PRINT'A  TRUE* 

2010  PRINT'S  FALSE' 

2020  PRINT 
2030  60SUB  4470 
2040  PRINT 

2050  IF  T«  =  'A*  THEN  GOTO  2110 

2060  PRINT-MANS  -  the  correct  answer  is  A* 

2070  PRINT’  Buffers  are  used  for  all  data  transfer  between  the' 

2080  PRINT*  computer  and  the  disks.’ 

2090  PRINT*  See  part  I.  Seauential  files,  and  part  2.  OPEN  &  CLOSE* 

2100  SOTO  2130 
2110  PRINT'CDRRECT* 

2120  Q(4)=l 
2130  °RINT 

214;  INPUT’press  ENTER*; TJ 
2150  S03U8  4400 

2160  PRINT'Vau  wish  to  access  a  previously  created  disk  file,  vou  will" 
2170  PRINT'read  in  the  data  and  use  it  to  sake  an  important  financial' 

2130  PRINT'deciston.  Which  of  the  following  statements  will  open  the  file' 
2190  PRINT'and  read  the  data  into  buffer  5.  The  filename  is  B52DAT* 

2200  PRINT 

2210  PRINT' A  10  0PEN,CHR*!34)'Q’CHR$(34)M,,CHRt<34)'B52DAT‘CHR*(34i 
2220  PRINT'S  20  3REN'CHR»(34)'5'CHR$!34)\l,'CHRt(34)’B52DAT'CHR*!34i 
2230  PRINT'C  30  0PEN,CHRIi341'!*CHR*i34i*.5,852SAT* 

2240  PRINT'D  40  0P£N'CHR$!34)'I,5.‘CHR«(34)*.*CHR$(34i'B52DAT’CHR*!34) 

2250  PRINT’E  None  of  the  aoove* 

2260  PRINT 
2270  6GSU6  4470 
2280  PRINT 

2290  IF  t*="E'  THEN  6019  2380 


2300  PRINT "WRONG  -  the  correct  answer  is  E' 


2310  PRINT* 
2320  PRINT’ 
2330  PRINT' 
2340  PRINT' 
2350  PRINT' 
2360  PRINT- 
2370  GOTO  2400 


the  correct  wav  is  GPEN'CHR$(34)'I,CHR*(34)'.5.'CHR$(34!,B! 
Answer  A  tries  to  open  the  file  for  cutout,  answer  B' 
misplaces  the  ’I'  and  buffer  number,  answer  C  doesn’t" 
have  quotes  around  the  filename,  and  answer  0  should* 
have  quotes  onlv  around  the  T  and  the  filename." 

Gee  part  2.  OPEN' 
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2330  PRINT'CQRRECT* 

2370  3(5)  =  ! 

2400  PRINT 

1410  INPUT'press  ENTER*! T4 
2420  30508  4400 

1430  ?'RINT*Nhat  is  wrong  witti  tfie  program  below  (assuae  the  END  stateaent" 
2440  PRlNT’m  line  20  autoaatically  closes  the  tiles  when  it  is  executed)* 
2450  PRINT 

24o0  PRINT* 10  QPEN’CHRt ( 34 ) * ! *CHRt ( 34 ) * , 1 , "CHRS (34 ) “TEST'CHfit (34 ! 

2470  PRINT* 20  IF  EOF(l)  THEN  END* 

2480  ?R1NT*30  INPUT#l,At* 

2490  PRINT  * 40  PRINT  At* 

2500  PRINT *50  SOTO  10* 

2570  PRINT 
2520  PRINT 

2530  PRINT'A  Nothing* 

2540  PRINT'S  A  ’File  alreadv  open’  ERROR  will  be  generated' 

2550  PR!NT*C  The  wrong  tile  aode  is  used* 

2560  PRINT'D  Line  20  is  illegal" 

2570  PRINT 
2530  S3SUB  4470 
2590  PRINT 

2600  if  Tt  =  *8*  THEN  GOTO  2650 

2410  PRINT’HRQNG  -  the  correct  answer  is  B” 

2620  PRINT'  Line  50  should  be  ’GOTO  20'  to  fix  the  problea.' 

2630  PRINT*  See  part  2,  OPEN  and  CLOSE* 

2640  GOTO  2670 
2650  PRINT'CQRftECT" 

2660  0(6)  '  1 
2670  PRINT 

2630  INPUT’press  ENTER*: Tt 
2690  50SUB  4400 

2700  PRINT'The  CLOSE  word  say  be  used  without  a  buffer  nuaber:  however,* 
2710  PRINT’when  vou  do  that,  only  the  sost  recent  file  is  ClQSEd.* 

2720  PRINT 

2730  PRINT” Is  the  above  statesent  TRUE  or  FALSE?' 

2740  PRINT 

1750  PRINT'A  TRUE* 

27 bO  PRINT'S  FALSE* 

2770  PRINT 
2780  50SUB  4470 
2??0  PRINT 

2300  IF  Tt  =  *8“  THEN  GOTO  2860 

2310  PRINT'NRCNS  -  the  correct  answer  is  B* 

2320  PRINT’  When  the  CLOSE  word  is  used  without  a  nuaber.  ALL* 

2330  PRINT*  the  arevicuslv  opened  files  are  closed.* 
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2340  PRINT*  See  oart  2.  CLOSE.' 

2350  GOTO  2880 
2860  PRINT 'CORRECT' 

2370  9*7)  =  1 
2SS0  PRINT 

2390  INPUT'press  ENTER*: ft 
2900  SOSO 8  4400 

2910  PRINT'Nhat  is  wrong  with  the  following  progra*?' 

2920  PRINT 

2930  PRINT'iO  QPEN'CHR*(34)“0'CHR*(34)*.1,"CHR»(34)'TEST'CHR*(34! 

2940  PRINT'20  PRINTI1, 10:20:30“ 

2950  PRINT'30  CLOSE* 

2960  PRINT 
2970  PRINT 

2930  PRINT'S  Nothing* 

2990  CR1NT“3  Nrong  file  »cde  is  used' 

3000  PRINT'S  The  CLOSE  stateeent  is  invalid* 

301'J  PRINT'D  The  PRINT#*  stateient  should  be  INPUTI1* 

3020  PRINT 
3030  S0SU8  4470 
3040  3RINT 

3050  IF  T*  =  *A“  THEN  GOTO  3090 

3060  PRINT'NRGNG  -  the  correct  answer  is  ft* 

3070  PRINT*  See  part  2.  OPEN  and  CLOSE' 

3080  GOTO  3110 
3090  PRINT'CORRECT* 

3100  8-s:  =  1 
3110  =RINT 

3123  INPUT'press  ENTER'; T* 

3130  G0SU3  4400 

3140  PR INT* You  have  opened  a  file  correctly,  and  you  now  want  to  read  m  " 
3130  PRINT'the  data  fro#  it.  Type  in  the  co»*and  vou  would  use.' 

3160  PRINT'Use  line  nuifcer  10,  a  space,  and  the  couand.  Use  buffer  *8* 
3170  PRINT- "and  read  the  data  into  variable  4S“ 

3130  PRINT 

3190  LINE  INPUT' ENTER  the  coe#and  now  ?  *:TI 
3200  PRINT 

3210  IF  it  =  *10  INPUT#8.ft»"  THEN  SQT0  3230 

3220  PRINT'NRONS  -  the  correct  answer  is  :  10  INPUTIS.AI” 

3230  PRINT'  See  part  2.  PRINT#,  and  INPUT#' 

3240  GOTO  3270 
3230  FRINT'CCRRECT" 

3260  3:9)=! 

327:  PRINT 

3230  INP'JT'aress  ENTER*:  U 
3290  60SU3  4400 
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*****  Listing  at  Progra*  ' IEST4 ’  *♦»*» 


07/10/83  -  0 


3300  PRINT'Hhat  is  wrong  with  the  following  progra*’* 

3310  PRINT 

3320  PRINT' 10  IF  EOF  Ill  TH£N  GOTO  40' 

3330  PRINT'20  INPliTll.At" 

3340  PRINT *30  SOTO  10' 

3350  PRINT  MO  CLOSE* 

33iO  PRINT“50  END 
3370  PRINT 

3330  PRINT'S  Nothing' 

3390  PRINT’S  The  file  wasn’t  prooerlv  ooened* 

3400  PRINT'S  Nothing  will  happen  witn  the  data* 

3410  PRINT'D  The  END  stateeent  is  net  needed* 

3420  PRINT 
3430  SC30B  4470 
3440  PRINT 

3450  IF  Tl  -  *8*  THEN  GOTO  3500 

3440  PRINT" NftGNS  -  the  correct  answer  is  3“ 

3470  PRINT*  The  tile  shoulo  be  acened  before  an  EOF  cftec.;  is  done.* 

3480  PRINT*  See  cart  2* 

34*0  GOTO  3520 
3500  PRINT* GGRRECT’ 

3510  QUO)  ~  I 
3520  PRINT 

3530  INPliT'oress  ENTER*: Tt 
3540  G3SU3  4400 
3550  FOR  X  =  1  TO  10 
35sO  1  -  r+sai 
3570  NETT  1 

3580  FRINT'Vqu  have  finished  the  test,  out  of  10  possible  correct  answers’ 
3590  ?R!NT“vou  scores  *V*.* 

3400  PRINT 

3410  IF  V  s  THEN  PRINT “YOU  HAVE  PASSED' 

3420  SCSI'S  4250 

3430  IF  1  :  a  THEN  GOTO  3710 

3i40  PRINT' irOli  HAVE  NOT  RECEIVED  ENOUGH  POINTS  TO  PASS* 

3S5C  PRINT 

3»fri  PPINT'VOo  SHOULD  RETAKE  LESSON  4<* 

34 ’0  PRINT 

3a3'.;  PRINT %'cu  will  be  returned  to  the  Menu.’ 

3a5)  PRINT 

370)  sera  44*0 

37 1  o  =rin: 

3 ’20  -RINT'Do  (Oii  want  -.our  score  recorded  on  a  oeraanent  file'" 

373)  «IST 
3*40  PRINT "A  .ES* 

T'lo  -CTNT’S  NO" 


«♦«  Listine  5r  Froqra#  'TE5T4'  »*►»» 


37:C  FF.INT 
J  ,  ■  .!  I  NPU  .  " WO l Ch " 1  ;  $ 

3730  IF  T$  -  *8"  THEN  8070  4030 
37*0  5DSUB  440C 

33CC  PSiMT’Ta  rears  veur  score.  «e  oust  coer.  a  file  ana  cut  your  naae' 
'310  ?PINT“in  it.  Therefore,  surorisincl*.  «  need  vour  case.  If  .-cur" 
33-0  PSINT'aaee  is  no:  unique  aaonc  the  students  likely  to  take  this  tee 
0530  PRIHT’otsase  contact  .our  teat  son  tar  for  an  identifying  «ord  that 
3S40  'PINT 'ml!  sake  yea  unique.  Then  enter  that  aerd  Seise." 

yQCft  30»vT 

33:0  FFI’v'If  you  have  already  entered  a  score  previously,  oe  sure  to' 
3370  FRINT"enter  tne  saee  nase  you  uses  hefore.  (use  ah  capitals'" 

3330  FRIST 

33?:  ISP.'T'tMTER  your  nerd  or  case  neu’tTl 
3<?00  APES’ !M,’SC3Rc4* 

3?:o  «  u  o 

3=20  IF  sDF'.t)  THEN  5QT0  3^80 
39  3  C  5  *  .ui 
334C  IHPUTtl.S*'*! 

3950  ISPUTll.itt’ 

;*i0  if  ns  <•  =  Tt  then  goto  4i40 

:m  5270  3920 

3330  CEASE 

3?70  (  =  t+1 

4400  NS l l !  =  ri 

40 1 0  3 !  t !  =  " 

4320  OPEN'D".  1.  ’3CQF.E4" 

4030  F3F  X  -  I  TQ  t 
-t*4v  5C  IN  41  ,NJ  a. 

4')5'j  PRISTll.Suil 
NE.(T  * 

4 '.''V  PPIST 
4.3'}  :;j;u3  44 

•  PRIST’tou  are  no*  qualified  to  :c  to  ciS30N  5." 

4100  PRINT 

4 1 ;  >;■  print 

4120  IftPUT’Do  ycu  «isn  a  ooeeuork  assicnaent  t‘f / N ■  “ ; T S 
4122  IF  TS  *  ‘V  'HEN  3QT2  4510 
4  j  3 v  SC T C  4530 


4150  IF  ECF'li  "HEN  ClCSElGOT j  417r 
4 l si  «  -  :♦! 

4170  ISP'JTSI.  NS  r.  3:*; 
i  •  2>  -n?r  i,c  - 

'l.J  OUw  “i-P 

f.r.fii «  J  »  irrnrrj.. 


*»**♦ 


Ltsunc  at  srooraa  'LESSONS'  ♦♦♦«♦ 


07/10,3 


•S’  I?  !  "S  '  THEN  30T  3  «8C 
??0  ■33T3  4=w: 

I'.O.  30503  Oiw’0 
did  3QSL3  3/0<: 0 
U.’1.  fRIN’ 

io-35  ROT'F’laase  toe  in  tne  nuacer  besioe  in*  area  .-co  w:s:' 

IvlO  RSJSiT'to  re<iew  il  trtrougn  5:  and  then  cress  ENT£-.  -  areas  ;  anc ' 

Ida  FRJNT’aress  ENTER  t:  return  to  ire  Ner.u. * 

S0IS  PRINT 

103o  INROrWiit  is  <our  choice’ »N 

•  •,  •  *r  »*  _  •;  'nrn  tr 
i-Jk  J  4 T  ,*  =  y  C'JiU  *3Vv;J 

1150  ON  N  30313  3000. 3000. 4000. 0000. 3000 
;,}•  33 TC  1000 
3. 33  3C5U3  31000 

3?  10  PRINT’  INTRODUCTION” 

VI:.  PRINT 

303  }  FRINT-Ir  tne  last  eaisode  ct  our  c:r.suteri:ed  sacs.  «e  assignee  »ou  a“ 
3040  FRIHT'hceewcrt;  arables  that  dealt  with  disk.  I'O  '.disk  moist /cutout! . ’ 
3050  -PINT 'It  irc Lied  lost  ot  tne  concects  that  we  have  been  study'.'::. “ 

3/i 3  :RINT ’New  *e  are  an  the  sawr.fuli  aart  at  the  coarse.  That's  rishi. 

3  3  -  3  ?SINT’.au  are  si  asst  dene  with  tne  hare  oarts  or  BASIS. * 

3.,;5  -PINT 

3133  RRIT'The  last  cascade  is  leant  no  about  3U5P.GUT1MES.  witter,  -m  will' 
31  d  FRX'learn  in  the  First  hair  at  this  lessen.  Arter  that,  we  will* 
3133  ?3lNT*'e*;ew  tne  nmerous  iisrarv  dncticns  Ibut  net  have  to  sesortte' 
311.  :eINT‘tres.  we'd  iust  have  to  know  how  the.  wart;',  sac  than  oa  on'' 

3 '. 4 ;  ;P3N”'t:  lessen  id' 

•  r  ■  •  r  r 

INFlT’cress  ENTE:"’:TS 

*  <  -  -  “p;  ir  -N* 

.. .  ■.  J-.uC 

-..J  -r.it  iitlr.wyou:  4-J.% 

33d'  :RI,«T,*:ee»here  dunro  each  lesson.  ne  esohastte  are  value  at  deina'1 
33d  RPlNT'ettra  stud,  besides  what  mis  : curse  teaar.es  <ou.  tie  all  Isarr.- 
3330  ;;X*s:re  «.e.t  we  30  setetrm:  that  we  nave  read  stout,  This  is" 

313.  ::IN*  asrtc.  d  tne  with  lea'-n.-.a  j  jraorautno  la.houaae.  ’ 

335.  :5X'Ec'  row.  though.  net  Out  .cur  ‘a-.onte  BASIC  .hanual.  art  c.rl 1 
33:  s6IN*’.o  beside  vsur  csecuter  ter  another  lessen  m  BASIC"* 

::v  :c:n* 

HE:  IN? /’cress  ENTER"! rt 
3:d  l:  *1  =  •=’  *jEh  33  "3  300 3 


Sl'ESOUTlSEi 


♦♦♦*»  Listmc  a*  rrocraa  'LESSGNf’  ***** 


3>v2v 

PRINT 

703} 

f-RIST-we  as 

3340 

PPIsT'iciv 

■»  ■  C  \ 

w'v'J'V 

PRINT'S  sin 

3  0-31 

->:iNT-ind  a 

PR  I MT ’’nerds 

7  '50 

?qr';7 

ws'-a* 

310') 

-  r. .  a  ;  C  * *  e.r> 

71!) 

PRINT’sich 

7130 

?5!N7*Tf»at 

■*  •  *>c 
.  . 

:»:RT"cr<  :t 

?P!NT 

1  t  v 

3141 

■32Sj3  21  )0C 

31-7 

PRINTS,  w 

-  *  2- 

OQTfc>7 

3144 

t5INT  ’A  Ts 

'  ■  If 

PRINT'S  3; 

3iAn 

?»!NT 

314’ 

IN^IT'EN'ZS 

.  i-*c 

•PINT 

*  >  in 

*t  =  *a“ 

r,r  -  **•»■  -as  r 

r.-.  .*«.  r<rj,io 

r  • 

PRINT’Cfevit 

.■■  1:7 

PRINT '  t  e  c :  r. 

-•  •  -- 

:rint: input 

- »  e  • 

i  -  ■* 

or:  3ooo 

-  •  cc 

mr-zzn 

f*INT 

•if- 

l“'f.T”:rr  =  E 

1  I  *- 

322LP  2 1 Jvv 

*!  * w  ■ 

* .  ft . 

PRINT 

313'; 

PRINO'SiiDr: 

-.'Or 

wC.lNT''  a^C. 

72'.') 

C'S  *  •,  T  *  *■  •  z' 
r  •  .  .N  J  _  a  2  r- 

-•  ^  1 . 

r,  r  •  ».  r 

722) 

PRINT  'Sufcrc 

j*.  . . 

-PlM’tr.at 

774.. 

®PlNT*fOLL2 

•■'f; 

.  »  j  . 

®P:NT':ir  : 

-•  *  J‘.' 

PSINPrirri1 

32"'. 

.  *2 . 

'  r  »i  r  ■  i  K  .  . 

.ne  - 

72"' 

iUf.RDU'INES" 
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Listing  3*  Frograa  ’ LESSONS'  ***** 


”.40  PRINT 

3350  INPUT'press  ENTER* 5 T* 

3330  30SLP  21000 

ZZzZ  PRINT*  SUBROUTINES" 

3337  PRINT 

ZZ'Z  PRINT" If  vou  nave  built  a  srogra*  that  nas  to  continually  print* 
7330  PRINT  ‘out  a  : roast,  asxina  the  users  if  tne r  want  to  review" 

33?|.'  fSINT'orevious  sections  ot  the  prograa  that  nave  run,  vou  would* 
3400  PRIST'liktlv  use  a  subroutine  to  ask  the  ouestion.  returr  to* 

34lo  PRINT  “ttie  aain  or  oar  as  with  tne  answer  stored  m  a  variable," 

3420  PRINT" ana  branch  to  the  right  3 art  ot  tne  prograa.  based  on  the' 
343.  FRINT'answer." 

343!  PRINT 
343o  PRINT 

3440  PftlNT'The  following  is  an  ex asp! e  such  a  prcgra** 

3410  PRINT 

3430  INPUT*ores5  ENTER": Ti 
34  s!  SCSI'S  31 000 
347'?  JGSUE  4H>jO 
3430  PRINT 

34 TO  PRINT'D*  mi  1 1  explore  tne  aasn  points  ot  this  routine  m  the  next  * 
3500  INPUT" sect: on .  Press  ENTER  to  go  on'.TI 
3510  PRINT 


3330 

SGSUB  21* 

500 

3540 

PR!NT“Where  dees  control  transfer  when  a  subroutine  returns  to  the 

rcr.n 

jJJC 

PRIHT'aa: 

:n  crccraa7’ 

356v 

PRINT 

3  ^1;. 

PRINT’ A 

The  beginning  of  the  crograa” 

3530 

DRINT*B 

The  calling  statement" 

35”.'- 

PRINT"! 

The  stateaent  after  the  calling  atateae.it' 

3300 

PRINT”" 

None  b?  the  above" 

3a  1 ) 

PRINT 

3  tIC  INP'jV'Enter  the  letter  opposite  the  correct  answer*;!* 

3s 3?  PRINT 

3e40  IP  'i  =  •!■  THEN  SOTO  3teC 

3650  FP I  NT "WRONG  -  control  is  transferred  to  the  stateaent  after  the  * 
3oij  PRINT"  calling  stateaent.  The  correct  answer  is  C 

3370  GOTO  Z696 

3i30  PRINT’CORRECT  -  Super  <ob  .  .  .  Now  we  can  go  on" 

7:°0  PRINT 

Z7X  WJT'oress  ENTER";  Tf 

3710  SGSUB  40000 

3730  IF  Ti  -  '3"  3013  3000 

3730  RETURN 

-'.:0v  SCSI'?  21000 

4005  PRINT"  SOSCB  i  RETURN* 
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*****  Listing  of  Frograa  'LE3SCN5'  ***** 


07/10.33  -  03:20 


4/10  FFINT 

4::>;  PRINT  "The  set  of  stateaents  that  vou  use  to  isclesent  a  subroutine* 

4 030  PRINT* : s  lade  of  the  GCS'JB  and  RETURN  words.  The  R03UB  word  is  used* 

4 M0  c'F!NT‘al»05t  e..acti>  like  the  GGTQ  stateeent.  Vou  out  the  line* 

4  030  PFlNV-.uacer  o<  the  start  of  the  subroutine  on  the  right  of  the  5Q5U8* 
4CiC  .-R!ST*4oro.  kihen  the  coeouter  gets  to  it,  it  transfers  control  to* 
407;  PP'.NT’the  subroutine,  when  the  subroutine  is  done,  it  returns  to  the* 
4030  PP'NT‘*air  orogrsa  bv  using  the  RETURN  stateeent.  You  cannot  GOTO* 
4.4.  PD!NT *the  earn  orpgrae  free  a  subroutine  without  risking  disaster." 

- 1  •>;  s?.  !!»’*. ou  should  alwavs  use  the  RETURN  stateeent.* 
i'.'.:  -”.V 

u:;  :i:L";'e5s  E.Tc.Vl’S 

*::!  3QSLS  21.-JV 
30 Sir  41  aO 

,•>  --:r 

4:1  -  - 1 N  T "  l  : e  70  and  line  90  call  the  subroutine,  and  line  13010  RETURNS* 
41ju  INPUT* to  the  aooroonate  stateeent.  Dress  ENTER*; T * 

4 1 7 ;  scrub 

413;  GCSlB  41C7"- 
-rin: 

4 2 j.  fPlNt'lt  lire  31  calls  the  sub'outine.  what  line  gets  contro.  after* 
43’.;  INFlT'f.e  C£TLCN  stateeent  ....  ENTER  the  correct  line  water" STS 
433 .!  =R  I  S’ 

4340  If  71  *  *50"  THEN  GOTO  4:6.) 

4351  fp'ff "WrONS  -  the  correct  answer  is  line  SO* 

4355  soto  o: 

42aC  PRINT-CORRECT  -  You  are  aetti.no  GOOOOOOOoocod!* 

*263  PRINT 

43:5  INFUT'oress  ENTER* ; T S 

4270  GCSuB  21000 

4220  PRINT*  GCSUB  1  RETURN* 

4290  PRINT 

4300  PRINT" Voc  can  have  acre  than  one  2QSUB  in  a  Drograa.  ang  you  can” 

4310  PRINT“have  nore  than  one  RETURN  m  a  subroutine.  If  vou  have  aore* 
4320  PRlNT’thar  one  RETURN,  then  the  cosouter  will  return  when  it  reaches" 
4330  PRINT’the  first  RETURN  stateeent  it  cones  to.  Generally  sneaking.* 
4340  PRINT", ou  should  try  to  Iiett  the  r.ueber  of  exits  free  a  subroutine* 
4320  6R I NT ’because  it  can  get  very  confusing  if  vou  have  RETURNS  stunt* 
4363  RPINT’ali  o/er  the  place.  It  is  usually  possible  to  have  onl<  one’ 
437)  PPINT’esit  to  an>  Drograa  or  subroutine.* 

4330  PRINT 

4390  INPUT ’press  ENTER" t T* 

4400  SQGU?  21--M 

4413  PR  I  NT ’ I s  the  following  orograa  valid?" 

4430  PRINT 

4440  PRIMT'29  INPUT’CHRS -34: “Enter  a  r.uaber  between  0  and  20“CHR* : 34) “ : N 
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Listing  of  Proqraa  'LE3SCN5'  *****  07/10/33  -  03:20:1! 


4430  PR! NT *30  3C3UB  100* 

4460  PRINT *40  END* 

1470  PRINT” 100  IF  N  \  10  THEN  PRINT  "CHM134! 'Nuaber  is  less  tnan  10* CHS* ‘341  *  ELSE  GOTO  ;20 ’ 
4430  6RINT‘!10  RETURN* 

4490  PRINT"  123  IF  N  V  SO  THEN  PRINT  “CHRK34!  'timber  is  tore  than  10**CHRS ! 34 ; "  ELSE  SCTO  140" 
4300  PRINT” 130  RETURN* 

4310  PRINTMTO  PRINT  *CHfi*!34>*Vour  nuaber  is  10“CHRt!34) 

4320  PRINT* ISO  RETURN* 

4530  PRINT 

4540  PRINT 'A  >es,  Sat  confused  bv  too  aa.ov  RETURNS* 

4343  PRINT'S  No.  the  crograa  will  ne/er  get  gassed  hoe  110* 

4350  PRINT 

4SaO  INPUT "ENTER  the  letter  opposite  the  correct  answer"; Tt 
4570  PRINT 

4530  IF  T$  =  "A*  THEN  SOTO  4410 

45a0  PF:IN'*NRGNS  -  the  cnl;  qrohlet  is  a  confusing  nuaber  of  RETURNS* 

4600  60TC  4620 
461.  PRINT'CDRSECT* 

4620  PRINT 

4630  INPUT’press  ENTER* 5 T* 

4440  S03U8  21000 

4650  PRINT"ENTER  the  coacand  to  go  to  a  subroutine  that  starts  on  line” 

4640  PRINT*  1030.  Use  line  ICO  and  cut  one  space  between  ail  terse.* 

4470  PRINT 

4630  INPUT'Enter  the  coaaand  no»*;Tl 
4490  PRINT 

4’00  IF  T4  =  *100  33SUB  1000"  THEN  SCTO  4730 

4710  PRINT  "’aRONo  -  the  rorrect  answer  is  *.  100  3QSU8  1000* 

4”20  60T0  4750 
4730  PRINT'CORREC** 

4 '50  PRINT 

1760  INPUT’aress  ENTER* J T * 

4’?'.'  30SU?  40000 

4730  IF  Tt  =  *S"  THEN  SOTO  4000 

47*}  RETURN 

3000  50SUB  21000 

3010  PRINT*  NESTED  SUBROUTINES* 

5020  PRINT 

3030  PRINT "bthat  do  vcu  think  the  autout  of  the  following  is”* 

5040  PRINT 
5050  GQSUB  42000 
5060  PRINT 

3070  INPUT'press  ENTER;  for  the  answer *;T* 

3/S.1  60SUB  Ll-'J'J 

505'  F91N7”The  answer  is  :“ 

5100  S0SU3  4200-0 


*****  Listing  at  Progra*  ’LESSONS''  ***** 


07/10/33  -  03:20:11 


StlO  PRINT 

5120  ?RINT‘Hain  Program 
5130  F'RINT‘Subreutine  One" 

5140  PRINT'Sudroutine  Two* 

5150  PRINT’Susroutine  Two* 

5 ISO  INPUT*  press  ENTER* ;T* 

5170  GQSUB  21000 
5180  30SU8  42000 
5190  PRINT 

5200  PRINT'This  is  an  exa«ole  of  a  ’NESTED  SUBROUTINE'.  The  subroutine* 
5210  PRINT’m  line  100  calls  the  subroutine  in  line  200.  It  is  perfect!*' 
5220  PRINT'legal,  and  sotetues  very  valuable.  * 

5230  PRINT 

5240  INPUT'oress  ENTER" 5 T $ 

5250  S0SU3  21000 

52S0  PRINT’Khat  is  the  order  of  execution  of  the  following  progra*?* 

5270  PRINT 

5230  PRINT’10  SOSUB  100” 

5290  PRINT’20  SQSUB  200* 

5300  PRINT-30  END* 

5310  PRINT* 100  RETURN* 

5320  PRINT *200  SOSUB  100“ 

5330  PRINT* 2 10  RETURN* 

5340  PRINT 

5350  PRINT’Tvoe  out  the  line  nuebers  as  they  would  be  executed,  putting  a'1 
5360  PRINT’space  between  each  nutber.  lie  10  20  30  40)* 

5370  INPUT'Enter  your  answer*:!* 

5380  PRINT 

5390  IF  TJ  =  *10  100  20  200  100  210  30*  THEN  SOTO  5420 

5400  PRINT  "HR3N6  -  the  correct  answer  is  : 10  100  20  200  100  210  30* 

5405  PRINT*  That  was  a  rough  one,  vou  «ay  want  to  review  this  Dart" 
5410  SOTO  5430 

5420  PRINT’CGRRECT  -  gets  co*oi seated  doesn’t  if” 

5430  PRINT 

5440  INPUT’oress  ENTER*:*! 

5450  30SU3  40000 

5460  IF  T*  -  *8*  THEN  SOTO  5000 

5470  RETURN 

3000  SOSUB  21000 

3010  PRINT"  ON  SOSUB" 

3020  PRINT 

3030  PRINT"Re*e»oer  the  ON  SOTO  stateeent  fro*  our  previous  lessons'” 

3040  PRINT 

3050  PR  I  NT ’There’s  a  caimarti  very  suilar  to  ON  SOTO  that  can  be  used  with* 
3060  PRINT’subroutmes.  / ou  have  probably  already  guessed  that  the  * 

3070  PRINT"co#.»and  is  called  ON  SOSUB.* 
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07/10/83  -  03:20:1 


3(90  PRINT'Here  is  an  asaaoie:* 

3 ICO  PRINT 

911)  PRINT’IO  :NP'JT"CHRI(34!  "ENTER  A  NUMBER  BETWEEN  1  AND  4*CHR*(34)*;N* 
3120  PRINT-20  ON  N  S0SU6  300.400.500.600* 

3130  PRINT 

8U0  PRINT’If  N  =  1  then  suaroutine  300  would  fie  executed,  it  N  =  Z.  sub-“ 
3150  PRINT’routine  400  would  execute,  and  so  on* 

3!6u  PRINT 

3170  INPUT "PRESS  ENTER*; T1 
3130  60308  2 1000 

3190  FRINT"  QN  3QSU8* 

320 j  PRINT 

3210  PR INT " 10  INPUT"CHRli34) 'ENTER  A  NUMBER  BETWEEN  1  AND  4*CHR*(34!*;N* 
322C  PRINT *20  ON  N  SCSU6  300,400.500. iOO* 

923)  PRINT 

9240  PRINT" I *■  the  vaiue  of  N  exceeds  the  nuaber  of  octions  that  are* 

9250  PRINT'avai table,  then  ON  SGSUS  will  default  to  the  first  available” 
9260  PRINT’lme  nueber  -in  this  :ase  it  would  be  300)* 

3270  PRINT 
3230  PRINT 

9230  INPUT’P'ESS  ENTER  FCR  AN  EXAMPLE*; T$ 

3300  GGSUB  21000 

3310  PRINT-10  PRINT" CHPS (34) "T rPE  t  FOR  SQUARE  TABLE ”CHR*( 34) 

3320  PRINT *20  PRINT*CHfi*!34:  ’  WE  2  FOR  TH£  CUBE  TABLE‘CHR»'34) 

9330  PRINT “30  INPUT  A* 

3340  PRINT *40  QN  A  SQSUB  1000.2000* 

8351)  PRINT *50  SOTO  10* 

9360  PRINT* 1000  FOR  X  *  1  TO  SO* 

33?0  PR!NT"1010  FRINT  X.X»X* 

9330  PRINT*1020  NEXT  X* 

3390  PRINT *1030  RETURN* 

3400  PRINT *2000  FOR  X  =  t  TO  50* 

3410  PPINTTDIO  PRINT  X.  X*X*X* 

9420  PRINT‘2020  NEXT  X* 

9430  FRINP203J  RETURN* 

9440  PRINT 

545<)  PRINF'If  you  ENTER  a  !.  then  subroutine  1000  is  used.  Which  subrou-* 
3460  INPUT'tine  is  used  if  vcu  ENTER  a  4  :1000,2000  or  NONE)*;Tt 
9470  PRINT 

9480  IF  T$  =  ’NONE*  'HEN  GOTO  9SI0 

3490  PRINT "WRONG  -  rHE  CORRECT  ANSWER  IS  NONE” 

9500  GOTO  3520 
3510  PRINT ’COPRECT* 

8520  PRINT 

3530  INPUT-PRESS  E!frER";7$ 

8540  S03UB  40000 
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( 


3SS0  IF  It  =  ■9“  THEN  SOTO  9000 
3560  RETURN 
20980  REM  »* 

20990  REN  *♦  This  subroutine  clears  the  screen  on  any  terminal 
20995  REN  ** 

21000  FOR  X  =  1  TO  24 
21010  PRINT 
21020  NEXT  X 
21030  RETURN 
22000  REN  ♦* 

22020  REN  ♦*  this  subr  is  the  aenu 
22030  REN  ** 

30000  PRINT"  LESSON  5" 

30010  PRINT 

3001S  PRINTThis  is  the  first  part  of  a  two  part  lesson" 

30020  PRINT'lt  is  divided  into  the  following  sections.* 

30025  PRINT 

30030  PRlNT'’l!  Introduction  41  Nested  Subroutines* 

30035  PRINT "2)  Subroutines  5)  ON  SOSUB* 

30040  PRINT'S)  GQSUB  &  RETURN" 

30060  PRINT 
30090  PRINT 
30 100  RETURN 
3 0200  REN  *» 

30300  REN  **  re*  **  this  subr  gives  the  student  a  chance  to  review  the  lesson 
30400  REN  ** 

40000  SOSUB  21000 

40005  PRINT’Nhich  do  you  wish  to  do”* 

-OulO  PRINT 

40020  PR!NT”fl  Continue  on" 

40030  PRINT'S  Review  this  section  again’ 

40040  PRINT 

40050  INPtIT'oress  the  letter  ocoosite  the  correct  answer  and  Dress  ENTER' ; T$ 

40060  IF  TS  =  *0*  OR  Ts  =  *8*  THEN  RETURN 
40070  SOTO  40000 
40970  REN  ♦♦ 

40990  REN  ♦»  this  subroutine  is  for  the  gosui  exaaoie 
4C990  REN  »♦ 

4IOOO  PRINT* 1C  print*CHRli34)*R  CAI  orograa  is  a  coaputer  assisted  lnstruction'CHR* !34s 
41013  PRINT'20  prmt'CHRt  !34)  "prograa  that  teaches  students.  *CHfi$(34) 

41330  PRINT’ 20  SOSUB  10000  - LOOT,  use  sub.  after  every  aaior  part* 

41040  PRINT-50  IF  T*  =  THR*i34>*8*CHR*l34t*  THEN  GOTO  10  :’  T$  returns  fro*  sub  with  choice1' 
41050  PRINT "60 . ETC" 

41C57  PPINT'SO  SOSUB  10000  :’< -  LOOK  use  sub.  after  every  eajor  part" 

41053  PRINT”?';  END  :’Yoj  aust  ensure  progra*  doesn’t  goto  sub  bv  accident* 

4105?  PR I NT *100  REN* 
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41060  PRINT" 110  REN  the  subroutine  follows" 

41063  PR INT* 1 20  REN* 

41065  PRINT" 10000  INPUT"CHRI<34)’Do  you  want  to  continue  or  review  !A=Con  S=Rev) "CHRS i 34) “ ; T** 
*1070  PR INT "100 10  RETURN" 

41080  RETURN 

42000  PRINT" 10  PRINT"CHR»(34) "Main  Proqra«*CHR$(34) 

42010  PRINT" 20  S0SU8  100" 

42020  PR INT "30  SOSU8  200“ 

42030  PRiNT"40  END" 

42040  PRINT" 100  PRINT'CHR* (34) "Subroutine  Qne"CHRt<34) 

42045  PRINT" 110  8GSUB  200" 

42050  PRINT" 120  RETURN" 

42060  PRINT“20O  PRINT"CHR*!34> "Subroutine  Two"CHfi$(34) 

42070  PRINT"210  RETURN" 

42080  RETURN 
48000  RUN  "RENU* 

49000  RUN'lessonSa* 

50000  END 


2U2 


i 


*****  listing  :t  Prcgra*  ’LESS0M5A’  **♦♦♦  07/10/8: 

7ZZ  3CSUS  2 i 000 
’60  3QSUB  3000C 

290  PRINT"  !’j  taking  this  oart  in  its  entirety. * 

50C  PRINT‘3  I  wish  to  review  sel sited  areas  '.or  tai.e  the  test).' 

*02  PRINT*C  I  want  to  go  to  the  first  oart." 

904  PRINT'D  !  want  to  return  to  the  Kenu." 

510  “PINT 

515  !NFiuT*Fress  either  caoital  A,  3.  C.  or  0  and  then  cress  ENTER": 7$ 

*:o  if  :$  =  -d"  adc  4sooo 

o;;  IF  T|  =  JC“  GuTG  49000 
*30  IF  !l  *  *B"  30*3  1000 

*40  IF  T$  "A'  53TE  590 

’Z~.'  SOSllB  2020 

"u5  jjSIjc  ToO'J 

9s0  5C5JB  40(0 

3  "5  bCSLlB  6000 

S2SUB  -000 
*"3  SOSUS  3020 

*30  GQSOB  21000 

*90  30T2  49000 
1000  30SUE  21000 
SQSU3  20000 

!mo:  print 

yy.Z  PFINT'PIease  tvoe  in  the  nuaher  seside  the  area  vcu  wish" 

1010  PRINT"!-:  review  :i  through  si  ana  then,  oress  ENTER  -  aress  j  and" 

1015  FRINT’cress  ENTER  to  return  to  the  Rents. * 

1  ;-25  PRINT 

1030  INPUT  "What  is  vcur  twice".  N 

1040  IF  N  -  0  S2T0  43000 

:;Z':  2-N  N  32303  2 jC*0. 3000 . 4000. 6000. 7000 . 4"’G00 

l.sv  EG  TO  IVOO 

20301  8QSUB  21000 

2010  PRINT"  INTRODUCTION* 

2020  =RINT 

2030  PRINT'In  tms  lesson  we  will  tackle  the  different  categories  and’ 

2040  PRiNT'knas  of  c0NCTICNs  that  are  availatle  to  us  in  hicrosoft  BASIC." 
ZOio  PRIMT’We  will  use  ormcioles  already  covered  in  ore-nous" 

20 to  PRINT’sessions.  If  vcu  have  trousle  with  soae  tf  the  conceits,  then" 
2.9u  ?PINT"-,ou  will  ha.-e  to  review  the  aoorooriate  lesson  to  catch  uo." 

2  3 *  j  CRINT 

210;;  3RiNT "-icwe/er.  we  will  not  he  gcir.g  into  great  teoth  with  our" 

2110  RPINPexoianaticns.  Nanv  FUNCTIONS  have  verv  soecific  uses  and  it* 
2120  PRINT’wouid  not  he  useful  for  *ou  to  eeeorite  thee.  The  idea  von* 

2130  RRINT'shouid  get  fro*  this  cart  is  that  there  are  »an<  funcf’ons* 

2140  PR'INT'atailahle.  and  that  when  .c-u  need  the*,  vou  should  get  cut  -/our" 
2 1  -C  FRINT’ianual  and  Icok  „o  the  soecific  i*oie*entation  of  each  one." 
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2 1 60  PS  I ST 

2:70  INPUT’press  ENTER"! TJ 
2130  RETURN 
3000  GCSUB  21000 

3010  PRINT"  Functions  Overview* 

3020  PRIST 

3030  ?RINT‘F:e*eaoer  in  the  second  sart  of  Lesson  I  when  we  described" 

3040  PRINT'FUNCTIGNs  for  the  first  tiae?  lie  said  that  we  would  cote  back" 
3050  PRINT'to  the*  in  another  lesson.  Well,  this  is  it" 

3060  PRINT 

3070  PRINT’Froa  that  lesson  we  should  reseaber  that  functions  are  ore-" 
3020  FRINT’wntten  instructions  that  oerfom  couonlv  used  operations." 
3390  PRIflT'Vou  can  look  at  functions  like  they  were  ami -subroutines. * 

3100  PRINT*onlv  vou  don’t  use  G02UB  or  RETURN  stateeents  to  call  thea" 
3110  PRINT " Iristead .  vou  just  use  the  kevword  assGciateo  with  the  FUNCTION” 
3120  PRIST'and  the  coaputer  perforas  the  appropriate  operation  auto-" 

3130  PRINT"*aticallv.  In  the  nest  sections  we  will  study  two  types  of" 
3140  PRINT" functions.  Library,  ana  User  Functions." 

3150  PRINT 

TlaC  INPL'T’press  ENTER"? T4 
3! 70  S33U8  21000 

3180  PRINT*  Functions  Overview” 

3190  PRINT 

3200  FRINT "L: brarv  functions  contain  useful  operations  that  have  been’ 

3210  PRINT'wntten  and  stored  in  the  conouter.  ana  are  there  whenever  you* 
3220  FRJNT’need  the*.  User  functions  are  functions  that  vou  aake  up" 

3230  PRINT'bv  inserting  the  instruction  to  sake  the*  in  mr  progras.” 

3240  PRINT’Then.  •nen  ,cur  srogra*  needs  the  special  USER  FUNCTION,  if 
3253  PRINT'can  call  on  it  with  a  soeciai  word." 

32:0  PRINT 

3270  PRlNTVhere  are  tar.v  functions,  and.  depending  on  the  specific" 

32SC  PRINT'iioIeaentatiofi  of  Microsoft  BASIC,  vou  probably  have  at  least* 
329*3  PRINT’12  Library  functions  stores  in  your  computer.  On  the  nest' 

3300  PKINVscreen  is  a  list  of  ‘he  typical  set  of  Library  functions." 

33!)  PRINT 

3320  INPUT’orsss  ENTER" ? T S 
3330  30SUS  21 "00 

334C  PRINT"  Typical  Library  Functions* 

3350  PRINT 
33b J  GGSUB  41300 

print 

3320  PR’NT’Soecific  esasoles  of  these  functions  will  be  given  later,  or’ 
3390  PRINT* vou  eav  Iook  the*  up  in  .our  BASIC  lanual." 

3400  INPUT’oress  ENTER’! T* 

3410  30 SUB  21503 

3420  PRINT’ Is  the  following  statement  TRUE  or  FALSE”" 
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3430  PRINT 

3440  PRINfLibrarv  ^unctions  are  predefine  instructions  that  are  stored' 
3450  PRINT'mside  the  :o»puter.  and  «av  be  .sed  at  anv  tiae  :n  »oar* 

3460  PRINT’prograa. ' 

34’0  PRINT 

3430  PRINT"  TRUE" 

3490  PRINT’S  FALSE" 

3100  PRINT 

3510  INPUT  "ENTER  the  letter  ccaostte  the  correct  answer-; TS 
'530  C'R’NT 

3530  IF  'I  =  "A"  THEN  GOTO  3560 

3540  ?R 1  NT  *  WR0N5  -  the  sentence  is  acod.  correct  answer  is  A" 

3550  3QTQ  3570 
3560  PRINT"CORftECT“ 

35'0  PRINT 

3530  INPUT "press  ENTER" iTI 
35%  SQSUS  21000 

3t>C0  PRINT' Is  the  following  sentence  TRUE  or  FALSE'1" 

3610  PRINT 

3630  PRINT “User  Functions  are  aade  bv  the  user  and  are  not  noriallv  stored" 
3630  PP.JT’in  the  coaouter." 

3640  PRINT 

3650  PRINT’S  TRUE" 

36o0  PRINT'S  FALSE" 

3670  PRINT 

3s30  INPUT'ENTER  the  letter  oooosite  the  correct  answer  * ; T* 

36%  PRINT 

3700  IF  Tl  =  "A"  THEN  SOTO  3730 

3710  PRINT'yftONG  -  the  statement  is  true,  the  correct  answer  is  A" 

3730  SOTO  3740 
3730  PRINT'CSRRECT* 

3740  PRINT 

3’jO  INPUT "press  ENTER" iTI 

3760  S0SU9  401)00 

377}  IF  Tl  -  "3"  THEN  SOTO  3000 

3730  RETURN 

-000  SGSUB  31000 

4010  BR1NT"  Library  Functions' 

4030  6GSUB  41000 
4040  PRINT 

4050  PRINT'Here  are  twelve  of  the  aost  used  library  functions.  As  an  * 

40s0  PR[NT"e::a»Bie  of  how  such  tiae  thev  can  save,  think  of  the  nuaber  of" 
4370  PRINT "=tate*ents  you  would  have  to  write  to  calculate  tne  locarithij" 
4030  PRINT’of  a  nuaber." 

4130  INFUT'cress  ENTER"; Tl 
4130  30SU3  2 1 yOO 
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4140  PRINT*  Library  Functions" 

4150  PRINT 

4140  PRINT*Ai!  vou  have  to  do  to  calculate  the  log  of  a  nuaber,  say  the" 
4170  PRlNT’nuaber  is  10.  is  to  tvos  in  the  stateter.t  -  PRINT  LQS'lOi1* 

4190  PRINT'The  esaaole  of  the  logaritha  of  10  is  esactlv  ho*  me  laclesent" 
4200  PRINT’the  library  functions.  Here  is  another  esaaole:" 

4210  PRINT 
4120  SOSOS  42000 
4250  PRINT 

4240  PRINT* In  this  ecaaole,  an.1  positive  nuaber  will  have  its  square  root* 
4270  PRINT’ormted  out.  Any  negative  nuaber  mil  cause  an  error,  vou" 

4230  PRINT’can’t  take  the  square  root  of  a  negative  nuaber." 

4290  PRINT 

4300  INPUT'oress  ENTER’ :Tl 
4310  SOSOS  21000 

4320  PRINT"  Library  Functions’ 

4330  PRINT 
4340  S03U5  42000 
4350  PRINT 

-360  PRINT’Notice  that  the  function  aliens  veu  to  use  a  variable  as  an" 

4370  PRINT’arguaent  for  the  nuaber  vou  a ant  the  SGuare  root  of.  In  1 
4330  PRIHT’afldition  to  this,  you  can  use  a  FUNCTION  as  an  arguaent  for  a" 
-390  PRINT-FUNCTION** 

4400  PRINT 

4410  INPUT’oress  ENTER  for  an  esasoie’lT* 

4420  60SUB  21000 

4430  PRINT*  Library  Functions’ 

4440  PRINT 
4450  5GSU6  43000 
44a0  PRINT 

4470  FRINT’In  this  evaaole.  no  latter  what  the  sign  of  the  nmber  vou  ‘ 

4430  PRINT’enter,  -.ou  mil  get  a  valid  square  root,  because  ASS !N>  mil’ 
4490  PRINT’give  the  absolute  value  of  N  iU  as  a  positive  nuaber;,  and  then’ 
4500  PRINT’SQRiASSlNi  i  mil  give  the  souare  root." 

4510  PRINT 

4520  PRINT" feu  can  use  ;ust  about  anv  valid  nuaenc  expression  for  the" 

4530  PRINT* levs'  Dart  cf  anv  Libra'v  Function.’ 

4531  PRINT 

4532  INPUT  press  ENTER"; U 
-533  5GSJE  21000 

4541  PR  I  NT  "Is  the  follomnq  statement  valid?* 

4542  PRINT 

4543  PRINT’D  PRINT  LOG'.OI* 

4544  PRINT 

4545  PRINT-HINT:  If  vou  are  net  sure,  trv  it  on  a  calculator’ 

4546  PRINT 


204 


*****  Listing  of  Prograe  'LE330N5A'  ***** 


07/ io/a 


4547  PRINT’A  Ye s.  it  is  valid* 

4548  PRINT’B  No.  0  is  not  a  valid  nuaber  for  this  function* 

454?  PRINT 

4550  INPUT'ENTER  the  letter  opposite  the  correct  answer";Tt 

4551  PRINT 

4552  IF  II  =  *8*  THEN  SOTO  4556 

4553  PRINT*»RQN6  -  vou  can’t  take  the  log  of  0* 

4554  SOTO  4557 

4556  PRINT "CORRECT * 

4557  PRINT 

4553  INRUT’oress  ENTER*! T$ 

4560  60 SUB  21000 

4570  PRINT*  Librarv  functions* 

4580  PRINT 
4590  SOSUB  43000 
4595  PRINT 

4400  PRINT'The  eroression  A8S!N;  is  evaluated  first,  then  the  outside* 

4610  PRINT’expression  -  S8R ( — i  -  is  evaluated  next.  Reaeaber  froa  the* 
4620  PRINT'flrst  lesson  when  we  said  that  the  parenthesis  is  the  highest* 
4630  PRINT'priontv  arithietic  expression?  That  leans  that  anv  expression" 
464)  PRINT’that  is  within  parenthesis  mil  be  evaluated  first.  If  tore” 
4650  PRINT'than  one  set  af  parenthesis  is  used,  then  the  expression  with-* 
466)  PP.INT'm  the  inner-aost  set  of  parenthesis  is  evaluated  first.* 

4470  PRINT 

4630  INPUT'oress  ENTER*;!* 

4650  60SU3  21000 

4700  PRINT'Is  the  following  sentence  TRUE  or  FALSE"'* 

4710  PRINT 

4720  PRINT'You  can  write  vour  own  library  functions  in  special  cases.* 

4730  PRINT 

4740  PRINT'S  TRUE* 

4750  PRINT’S  FALSE* 

4760  PRINT 

4770  IHPUT'ENTER  the  letter  opposite  the  correct  answer*: II 
4730  PRINT 

4790  IF  T$  =  "8“  THEN  GOTO  4830 

4800  PRINT *V|R0N6  -  library  functions  are  oeraanentlv  stored  in  the  * 

4810  FR1NT*  ccaputer  and  cannot  be  created,  the  correct  answer  is  8’ 

4820  60T0  4840 
4330  PRINT'COPRECT* 

4340  PRINT 

4350  INPUT’press  ENTER*? T4 
4860  SQSU8  21000 

497*;  PRINT’In  the  next  few  screens,  we  will  ask  vou  Questions  concerning’ 
4380  PRINT*! ibrarv  functions.  You  should  get  out  vour  BASIC  eanual  and" 
4890  PRINT'look  up  the  answer  to  the  auestions  before  vou  atteapt  to  enter* 
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4900  PRINT'vour  re sponse.’ 

4910  PRINT 

4920  PRIMT’Yau  should  give  vour  answer  in  the  foraat.  FUNCTIONfnuaoer).’ 

4930  PRINT’tou  will  always  be  given  the  nuaber  for  the  function,  end  >ou" 

4940  PRINT’do  not  have  to  include  a  line  nuaber.  For  exsaole.  if  we  ask1' 

4950  PRINT  *  for  the  function  that  gives  the  souare  root  of  10,  you  would" 

4940  FPINT'tvoe  in:  S2RI101." 

4970  PRINT 

4930  INPUT’press  ENTER’ ITS 
4990  30323  21000 

500C  INPUT’ishat  is  the  function  that  gives  the  natural  log  of  3": IS 
3003  PRINT 

5010  IF  TS  =  ’LQG191*  THEN  PRINT  ’CORRECT*  ELSE  PRINT  ’NEONS  -  ANSWER  is  LG5:3) ' 

3020  PRINT 

3030  INPUT’press  ENTER*; TS 
5040  G0SUB  21000 

5050  INP'JT'Naae  the  function  that  gives  the  absolute  value  of  -3’:TS 
5060  PRINT 

5070  IF  Tl  =  *A8S!-3> ’  THEN  PR I NT ’CORRECT*  ELSE  PRINT ’WRONG  -  the  answer  is  AESI-3!’ 

5080  PRINT 

5090  INPUT’oress  ENTER* t Tt 
5100  SOSOS  21000 

3110  INPUT ’What  is  the  function  that  gives  the  arctangent  of  A*3‘;TS 
5120  PRINT 

5130  IF  TS  =  ’ATN(A*3!"  THEN  PRIHT’CORRECT  -  GREAT  JOS’  EiSE  PRINT’WRONG  -  the  correct  answer  is  ATNlA* 
5140  PRINT 

5150  INPUT’press  ENTER’S Tt 
3160  SDSU8  21000 

5170  INPUT’Nhat  is  the  function  that  Gives  the  sine  of  .5’:T$ 

5130  PRINT 

5190  IF  TS  *  ’SIN!. 5)’  THEN  PR I NT ’CORRECT’  ELSE  PRlNT’WRGNS  -  the  correct  answer  is  SIfK.5)’ 

3200  PRINT 

5210  INPUT "cress  ENTER" s T S 
3220  30SU8  21000 

5230  INPUT’Naae  the  function  to  give  a  rando#  nuaber  between  0  i  I’;T$ 

5240  PRINT 

5250  IF  Tl  =  ’RNOiOl*  THEN  PRINT’CORRECT  -  good  one’  ELSE  PRINT’WRONS  -  the  correct  answer  is  ENOiO) “ 
5260  PRINT 

5270  INPUT’press  ENTER’: TS 

5290  SOSUB  40000 

5290  IF  TS  =  *8’  ’HEN  SOTO  4000 

5300  RETURN 

6000  EOSUP  21000 

6010  PRINT*  User  Functions’ 

6020  PRINT 

6030  PRINT’User  defined  functions  let  <ou  sake  uo  vour  own  functions’ 
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6040  PRINT" when  vou  can’t  find  a  hbrarv  function  that  will  do  tne  job." 

6050  PRINT 

sOoO  PRINT’The  stateaent  you  use  to  OEF me  a  user  function,  so  the;> 

6070  PRINT’coaouter  will  Lno*  what  .ou  are  doing,  is  called  the  DEF  state-' 

6030  PP.INT’sent.  The  user  function  onlv  aoolies  to  the  prograa  In  which* 

6090  PfilNT'it  Mas  defined.  Jlhen  the  prograa  is  abandoned,  the  function  is" 

6100  PRINT’no  longer  valid,  fin  exaaple  of  a  user  defined  function  is  ‘ 

6110  PRINT’coaing  up  ....  but  first,  soaethmg  a  little  different." 

6120  PRINT 
6130  PRINT 

M31  INPUT’oress  ENTER"; T< 

6132  5CSU3  21000 

6141  PRINT’Can  user  functions  be  carried  over  fros  one  Drogra*  to  another7’ 

6142  PRINT 

6143  PRINTS  Yes' 

6144  PRINT'S  No.  thev  alwavs  have  to  be  redefined" 

6143  PRINT"7  Both  A  \  8  above. " 

a  146  PRINT 

j 1 47  IMPUT "Enter  the  letter  ooposite  the  correct  answer‘;T$ 
a  148  PRINT 

6149  IF  Tt  =  "3“  THEN  GOTO  6153 

6150  IF  N  *  *C  THEN  S0311B  2 1000:  PRINT  “Are  vou  related  to  av  wife7":PRlNT"Please  safe  snathe-  choice 
In  fact,  trv  answer  B" : PRINT : INP'JT" press  ENTER 4 ;TV. GOTO  6141 

6153  PRINT"14RCN6  -  the  correct  answer  is  3“ 

6134  GOTO  6136 
6153  PRINT "CORRECT* 
ca  156  PRINT 

6157  INPUT'press  ENTER" ; TS 

6133  ‘30303  21000 

a!60  PRINT’  User  Functions’ 

3170  PPINT 
6180  SGSUB  44000 
6190  PRINT 

6200  PRINT'There  are  two  user  functions  in  this  progra*.  Thev  are  defined" 

6210  PRINT'm  lines  10  and  20,  and  called  on  in  lines  30.  and  30.  Ne  will" 

6220  PRINT’cover  this  orogra*  in  areater  detail  m  the  nest  section.1 
6230  PRINT 

o240  INPl'T "oress  ENTER": T* 

6230  6G3UB  40000 

62sO  IF  T$  =  *3"  THEN  SQTQ  6000 

3270  RETURN 

7000  6GSUS  21000 

70!>  PRINT"  OEF  Stateeent" 

7030  PRINT’The  OEF  statesent  is  used  to  define  a  user  function  and  it  has’ 

7040  PRINT'the  -oil  owing  forest:  “ 

7030  PRINT 
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7060  PRINT*  Line  l.'DEF  FN/func.  na«e:<<vars.v>  -  !exp)‘ 

7070  PRINT 

70S;)  PRINT'You  lust  never  use  the  DEF  statement  in  the  IMMEDIATE  aode.” 

’090  PRINT* You  always  have  to  have  a  line  nu«ber.  In  CPU  ano  Croaeaco* 

7100  P8!NT”svsteas,  vou  rust  separate  the  tens  DEF  ano  FN  by  one  soace.' 
7210  PRINT’ In  TRS-80s  vou  can't  have  to.  The  Ifunc.  naae;  is  anv  valid” 
7230  PRINT’variable  naae.  ■  varsi;  is  an  ootional  paraaeter  that  aav  be” 
’130  °RINT*passed  to  the  function.  If  it  is  used  in  the  DEF  stateaent.  it” 
7140  PRINT ‘MUST  be  used  when  it  is  called  on.  (sore  on  that  later/.  The” 
7150  PRINT’ters  lesci  is  the  calculation  tnat  you  wish  the  function  to  do.” 
’160  PRINT 

’TO  INPUT ’press  ENTER:  ";7J 
’230  SOSUS  21000 
7210  SOSUS  44300 
7220  PRINT 

'230  PRINT’Get  out  vour  SASIC  aanual  and  look  up  DEF.  It  will  show  vou" 
7240  PRINT'exaaples  siailar  to  this.  Line  10  defines  a  function  naaed’ 

7250  PRINT'S;  that  mil  oe  set  ecual  to  the  expression  on  the  ngnt  side" 
’2i0  PRIffT"of  the  stateaent.  -  :*.  tiill  return  a  randos  nuaber  between  1” 
’270  PRINT'a.od  20.  Note  that  this  user  function  uses  a  library  function* 
7280  -RINT’ds  cart  of  its  definition.  This  is  leoai.” 

7290  PRINT 

7300  INPUT ’or ess  ENTER”; T$ 

*302  JGSUS  32. '00 

73)2  FF.INT’Can  vou  use  a  library  function  as  part  of  the  definition  of  a  * 

7303  PRINT "USER  function?” 

7304  PRINT 

7305  PRINT’S  rES” 

7306  PRINT'S  NC” 

7307  PRINT 

’308  INP'JT'ENTER  the  letter  opposite  the  correct  answer*;Tt 

7309  PRINT 

7310  IF  T$  =  ”A"  THEN  GOTO  7315 

7311  PR  I  NT "WRONG  -  vou  CAN  use  a  librarv  function  inside  a  USER  function” 

7312  GOTO  7317 
7315  PRINT "CORRECT J 
7317  PRINT 

7313  INPUT'press  ENTER*; 7$ 

7319  SOSUS  21000 

7320  GQS'JB  44000 
’330  PRINT 

7340  PRINT "Li ne  30  calis  on  the  function  defined  in  line  10.  Nhen  it" 

’350  PRINfdces.  I  is  set  ecual  to  a  rando#  nuaber  between  1  and  10  and" 
7360  PRINT'then  it  is  crinted  out  in  line  40.  Line  50  calls  cn  the  1 
7370  PRINT" function  in  I.ne  20.  but  it  sends  two  values  tc  the  DEF  state-” 
’’30  PRINT'aent.  It  sends  (  la  rando#  nuaber!  ar.c  the  nuaber  9,  AM" 


07/ 10/33  -  03: 43 


m**  Listing  of  Proqraa  ’ LESS 3NSA '  ►*♦♦♦ 


'330  PRINT" .-alii  variable  can  be  oassea  to  a  function,  even  a  string.” 

7400  PRINT 

’410  INRUT’oress  ENTER"; T$ 

’430  SCSUB  31000 
’430  GQS’JE  44000 
7440  PRINT 

'430  PRINT’S  strina  could  be  oassed  m  a  function,  but  it  Mould  nave  to" 

’4a0  PR!NT"be  operated  on  legallv  within  the  DEF  stateaent.  In  this  case’ 

7470  PRINT'the  DEF  stateaent  in  line  20  expects  two  nuaencal  variables.' 
7430  PR!N7“Note  that  the  two  variables  passed  in  line  50  do  not  aatch" 

’430  PRINT"the  DEFmed  variables.  This  is  also  legal.  You  can  vie*  the" 

’500  PRINT'DEF  statement  as  its  own  little  prograa.  it  does  not  know  the’ 

7310  PRINT” value  of  an>  of  the  variables  m  the  outside  prograa." 

’520  INPUT "press  ENTER"! T1 
’53-3  5QSUB  31000 
7540  SCSUB  44000 
■530  PRINT 

’560  PRINT’The  two  values  that  are  DEFmed  as  A.  and  B  mi  1 1  be  set  equal’ 
’570  PRI.NT’to  the  corresponding  values  of  t  and  4.  A  ail  I  equal  t  and  6’ 
’53C  PRINT ’mi  1 1  equal  4.  The  DEF  stateaent  Mill  then  use  these  nuabers  to’ 
7530  PRINT ’cal cul ate  the  !e<p!  part  of  the  stateaent.  ana  then  Y  will  be' 
7a00  PRINT’aade  ecual  to  this  value.  Finally.  the  value  mi  1 2  be  printed" 
’410  PRINT 's r»  line  SO.  You  sav  wish  to  coov  a  prograa  like  this  and  " 

’a 30  PRINT’esperi'ient  with  it  to  see  how  it  works." 

7=30  INPUrpress  ENTER"  ;U 
’=3i  sosus  ::oa 
sgsub  44000 

•=33  !R!NT 

’634  :RiNT"«/hat  value  would  be  passed  to  8  m  the  second  DEF  stateaent” 
7435  PRINT 
’s3a  PRINT’A  4" 

’437  PRINT’S  'he  value  of  4* 

’433  PRINT’D  Cannot  tell  -  net  enouah  inforaation" 

’43?  PRINT 

’440  INPUT ’ENTER  the  letter  oooosite  the  correct  answer"; TS 
’441  PRINT 

7442  IF  T$  =  ’A"  THEN  GOTO  ’444 

7443  PRINT’NRQNS  -  the  ccrrect  answer  is  A’ 

’=44  GOTO  7447 

7444  C'R!NT’CGF.RECT" 

”447  PRINT 

'443  INPUT 'or ess  ENTER’;  71 
?443  SCSUB  21000 
’430  SOSOS  43000 
’640  PRINT 

7j7v  PRINT "Here  is  an  exaaole  of  sassing  a  string  m  a  user  function.  * 
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’630  PRINT* In  all  the  esaaoles  that  ns  have  sho«n,  we  have  al«a.s  t3l<f* 
’s90  PRIST ‘the  ccsouter  when  we  wantea  to  invoke  a  user  function  av  using” 
’700  PRINT* the  are! is  ’FNwari’.  That  is  the  only  wav  to  get  to  /our  * 

7'!‘)  PRINT ’user  function.  * 

T72'j  PRINT 

ISPUTVess  ENTER*'.  TS 
”34  oCSUB  2I00C 
772h  30SUB  45000 
”33  PRINT 

"33  PRINT'Note  in  the  example  above,  that  ee  passed  a  string  within  a* 

7740  PRINT'nuseric  variable,  but  that  m  the  DEF  stateaent.  we  set  the* 

’750  FRINT’nuaeric  variable  equal  to  LENistrmq).  LENlstrinc-  is  an’ 

”60  PRlNT'esaib'e  of  vet  another  tyoe  of  FUNCTION  that  *e  will  studv  m* 
7"u  FRINT’the  nest  lesson.  LENistnngi  returns  a  nuaeric  value  equal  toJ 
7’?:  ?R!NT*tfte  LENGTH  of  the  string  that  is  within  the  parenthesis.* 

’’8C  PRINT ‘Don't  worn  about  it  no*,  we  will  cover  it  in  the  nest  lesson,'1 
”32  :R! NT ‘However,  because  it  is  a  NUMERIC  value,  its  t,oe  Batches  the” 
’734  FRINT'DEF  stateaent.  and  therefore  it  is  valid." 

”70  PRINT 

T3C0  INPUT ’cress  ENTER- ; T * 

’31)  SCSI’S  2100C 

732:  PRINT *khat  kmo  of  function  do  ,ou  create  with  the  DEF  stateaent* 

■330  PRINT 

'341  PRINT'S  USER* 

’350  PRINT’S  LIBRARY* 

79SC  FRINT"C  EITHER  USER  dr  L’SRAfi;' 

’370  PRINT’D  DEFINED  FUNCTIONS* 

’33')  PRINT 

’390  INFLT'EN'ER  the  letter  oooosite  the  correct  answer*;T$ 

”00  PRINT 

7910  IF  Tl  =  ‘A*  THEN  GOTO  7«40 

7920  PRINT  "WRONG  -  onlv  USER  defines  functions  are  created  with,  the  DEF1 
7925  PRINT*  stateaent.  The  correct  answer  15  A* 

7930  30TC  7950 

7 940  PRINT’CDRSECT  1  -  but  that  was  an  easy  one.  try  the  neat  question 

7945  PRINT*  vou  think  you  are  uo  to  it” 

7946  PRINT*  !we  know  you  are  -  we’re  just  trvino' 

794’  PRINT*  to  lighten  things  uo  a  bit” 

’950  PRINT 

’?i0  INPUT'oress  ENTER*: TJ 
7970  SDSL'S  210)0 

7930  PRINT’ Is  the  ‘ollowng  stateaent  valid’* 

'931  PRINT 

7 -32  PRINT* 10  DEF  FN88(A.6!  =  A  *  3* 

’933  PRINT 

’984  PRINT'A  Yes.  to  call  on  it  suolv  out  FN88  soaewhere  m  your  oroqraa* 


n  «  «r 
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f 


7985  PRINT'S  No.  the  teres  A  end  3  are  not  defined  and  will  cause  errors' 

799a  PRINT'C  No.  88  is  not  a  valid  variable  for  this  oosition" 

7787  PRINT'S  No,  the  syntax  is  good,  bat  the  beat  is  ooor,  vou  can’t  * 

’933  PRINT*  dance  to  it.’ 

’-39  PRINT 

799')  INP'JT’ENTER  the  letter  opoosite  the  correct  answer*;TI 

ppj}1^ 

’992  IF  Tt  *  *D*  THEN  PRINT" DK  wise  guy.  even  ay  3  year  old  knew  that  was*;PRIHT"a  stupid  answer.  Trv 
aoain. ":PRI!IT: INPUT'aress  ENTER" ;Tt:GCSU5  21C00:3QTQ  79B0 
’993  IF  Tt  =  'C'  THEN  GOTO  79?6 
’994  PR I NT “ WRONG  -  the  correct  answer  is  C" 

7995  30T3  ’997 
’’96  PR INT “ CORRECT' 

799?  PRINT 

7993  INPUT'oress  ENTER"! Tt 

7999  GGSJJB  40090 

3300  IP  Tt  =  *8"  THEN  GOTO  7000 

3310  RETURN 

3020  GGStlB  21000 

3030  PRIMT'You  have  coapleted  this  lesson  and  now  vou  can  go  to  the  test* 

304C  PRINT " I f  vou  wish  to  review  carts  of  this  lesson,  tvoe  in  an  'RV 
3050  PRINT" i R  vou  wish  to  continue  to  the  test.  Soe  in  a  ’C’.“ 

3060  PRINT 

8073  INPUT’Enter  »our  choice  or  O'.’Ti 
3030  PRINT 

3090  IF  Tt  =  THEN  RUN 
3103  IF  Tt  *  "C"  THEN  GOTO  47300 
5110'  3370  9020 


20933 

PEN  »* 

2.990 

PEN  **  Th 

is  subroutine  clears  the  screen  on  ary  terainal 

20995 

REN  ** 

21000 

FCR  t  =  1 

TC  34 

2101 0 

PRINT 

21020 

NETT  t 

21030! 

RETURN 

33000 

PRINT" 

LESSON  5A“ 

300 1 0 

PRINT 

30015 

PRINT" Thi 

s  is  the  second  oart  of  a  two  part  lesson* 

30020 

PRINT'  It 

is  divided  into  the  following  sections." 

30025 

PRINT 

PRINT”:) 

Introduction  4:  Jser  Defined  cjnct;or.s 

30’j35 

&Q  »»'-*-»  , 

■  '  •  .'  .  4. 

functions  Overview  5)  DEF  Statesents" 

-PINT "3 1 

Library  Functions  6!  TEST” 

yj  HQ 

’PINT 

30)90 

PRINT 

30100' 

RETURN 

n  *  - 

i.  i  w 


*****  Listing  of  Frograt  ’LESS0N5A'  ***** 
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4000;  S0SU5  31000 

4x05  PRINTS, ticf!  ao  vou  wisn  to  do"1” 

40010  PRIST 

40030  PRIST" A  Continue  on* 

40030  PRIST“8  Re/i ew  this  section  again* 

40040  PRIST 

40050  INPUT'aress  the  letter  ooocsite  the  correct  answer  and  press  ESTER”; T S 
40060  IF  !t  =  *0*  Oft  T*  =  'B*  THEN  RETURN 

40070  sera  mo o 

40^70  SEN  ♦♦ 

4)330  REN  **  these  are  tor  Library  Functions  e/aaples 
409*0  SEN  «♦ 

4100)  PRINT'D  A8Slexp;  -  gives  absolute  value  7)  LDSiexp)  -  gives  LOSie)* 

41010  PfiiNT“2!  ATN'.exol  -  arctangent  in  radians  8s  ft  HO '.OS  -  randem  nutters" 

41030  PRINT'S!  CQSiexa/  -  returns  cosine  ot  exp  ?!  SGNlexc!  -  sign  of  exp* 

41030  ftRTMT*4!  ElP(exa)  -  natural  exponential  10)  SIN(exp)  -  sine  of  exo“ 

41040  PRINT'S)  FIXiexp)  -  gives  integer  of  exo  111  SCRiexpl  -  souare  root' 

41050  PR1NT*4I  INT(exp)  -  aives  inte3er  of  exp  12)  TANteup!  -  tangent lexa :■ " 

41)60  PRINT 

41070  PRINT'exo  =  any  appropriate  nuaenc  expression  -  retesber.  vou* 

41080  PRINT'can’t  use  ANY  nusber  for  sate  of  the  functions  (S8R1-U  boubs'; 

4109C  RETURN 
41970  SEN  «+ 

41*30  SEN  «  the  subroutine  is  for  the  library  function  area 
41990  REN  «* 

43000  PRINT'10  INPUT"CHMt24rTvae  m  the  nutber  vou  want  the  square  root  af*CHR$<34,*'.N* 
42010  PRINT '20  °R!N7  S3RiN)* 

420 20  ?SINT"30  SQIQ  10* 

42030  RETURN 
42970  REN  ** 

42*30  REN  **  this  is  another  exaeole  for  the  Library  functions 
42*90  REN  *♦ 

43*300  PRINT”  10  iNPUT’CHRI!34) ‘Enter  the  nuaDer  vou  want  the  souare  root  3f ’CHRK34! *!N* 
43010  PRINT*:')  PRINT  SflR'ABSW  :* 

43020  PRINT "TO  GGTC  10* 

43030  RETURN 
42970  REN  ** 

42930  SEN  **  this  exatole  is  for  user  functions 
43990  REN  ** 

44000  PRINT” 10  2EF  FNR2  =  ’NT'RNDlO)  *  10)' 

44010  PRINT'20  DEF  FNUiA.B)  *  A  *  3/2  +  (A  -  3)" 

14020  PRINT *3u  S  =  FNR2' 

44C30  PRINT'40  PRINT  X' 

44)40  PRINT *50  Y  =  FNHtX.4!” 

44045  PR  I  NT "60  PRINT  r* 

14050  PRINT-' 0  END* 


214 


) 
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07/10, 'S3  -  03:43:30 


44060  RETURN 
44970  RER  *t 

449S0  REN  ♦*  exaaple  of  DEE  with  strings 
44990  REN  ** 

45000  PRINT”  10  DcF  FNKAI)  =  LEN-.At)  ” 

45010  PR  INI  *20  fit  *  "CHRS 1 34 '  'This  is  a  function'CHRt(34i 
45030  PRINT'30  t  -  FNX'AS; ” 

45030  PRINT "40  PRINT  <’ 

45040  RETURN 
47000  G03UB  31000 

47:10  PRlNT"8omg  to  test  nuaber  3  -  wait  patientlv  olease" 
47020  RUN  'TESTS' 

48000  RUN  “MENU” 

49000  RUN 'LESSONS' 

30000  END 


i 


V  * 

4iJ 


*****  listing  of  Progra*  ’TESTS’  *****  07/10/83 

1000  RE*  ** 

1010  REN  **  LESSON:  TESTS  VERSION:  1  AUG  33 

1020  REN  **  AUTHOR:  CAPT  DAN  OREAGAN 
1030  REN  *♦  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 

1040  REN  ** 

10SO  REN  **  VARIABLES: 


1060  REN  ** 

N$U!  =  NAHES  ARRAY,  USED  TO  READ  IN  SEQ¬ 

1070  REN  ** 

UENTIAL  NANES.  AND  TO  WRITE  OUT 

1080  REN  ** 

UPDATE  NANES. 

1090  REN  ♦* 

SU1  =  SCORES  ARRAY  -  USED  TQ  READ  AND 

1100  REN  ** 

WRITE  SCORES 

1110  REN  ** 

3(1:  =  ARRAY  TO  KEEP  TRACK  OF  NUMBER  OF 

1 120  REN  ** 

CORRECT  ANSWERS.  IF  AN  ARRAY 

1130  REN  *» 

ELEMENT  EQUALS  1,  THE  ANSWER  WAS 

1140  REN  ** 

CORRECT 

1  ISO  REN  *♦ 

1160  CLEAR  3000 
1170  G0SU8  4130 
1130  DIN  N* l 1000) 

i:rj  din  q;io) 
din  suqooj 

Id:  PRINT*  FINAL  TEST  lesson  5)  ‘ 

1220  PRINT 

1230  PRINT’This  test  consists  of  10  ouestions,  vou  *ust  get  70  oercent* 

1240  P RINT'cf  the*  correct  to  pass,  (that's  7  right  out  of  the  10  cues-’ 
1250  PRINT’tions) .  Use  on!’,  capital  letters  in  •/our  answers,  don't" 

1260  PRINT  "include  a/.tra  spaces  or  letters.  If  vou  successfully  coaclete' 
1270  PRINT'the  test,  vou  can  go  on  to  the  last  lesson'" 

1230  PRINT"  "  GOOD  LUO" 

i:»o  PRINT 

1300  iNPUT'oress  ENTER  to  continue": T$ 

1310  S0SU8  4130 

1 320  PRINT'T.pe  in  the  order  in  which  the  *oi:owing  lines  will  ie  executed' 
1333  PRINT’Leave  one  space  tetween  each  line  r.uater  -  le,  if  the  execution" 
1340  PRINT'sequence  is  ten.  twentv  and  tmrt..  then  t.oe  in  1)  20  30" 

1350  PRINT 

1360  PRINT’S©  GQS'JB  1000" 

13*0  PRINT":©  “PINT  "CHRt;34i  "CGNE*CH.R*!34. 


330 

PRINT “30 

END" 

PRINT*  SOY 

0  RETURN" 

•t  ; . 

FPINT 

410 

INPUT'Snt 

er  tne  seouence 

now 

:  r* 

4r: 

PRINT 

4?.' 

IF  71  - 

10  1000  20  30" 

THEN 

J  J  ■  u  »  “* 

1440  PRINT’NRONG  -  the  correct  answer  is  1:  1000  20  30" 
1430  PRINT"  See  cart  1.  Sutroutines" 


*****  Listing  of  Progra*  ’TESTS’  ***** 
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!4a0  SOTO  1490 
1470  P»IWT 'CORRECT “ 

14SC  fill)  =  1 
1490  PRINT 

1500  INPUT’bress  ENTER*; TS 
IS  10  GOSUB  4130 

1 520  PRINT 'What  Mill  happen  unen  >ou  insut  then  nusber  4  to  the  relieving 
1330  RRlNT’orograa7" 

1540  PRINT 

1550  PRINT* 10  INPUT  A" 

I5o0  PRINT’ZO  ON  4  30306  1000. 3000. 3000“ 

1570  PRINT “30  cND* 

1330  PRINT'....  rest  at  progra*  is  not  isoertant’ 

1590  PRINT 

laOO  PRINT'S  Nothing* 

lilO  PRINT'S  Subroutine  3000  Mould  be  called" 

IsZO  PRINT'S  Subroutine  1000  Mould  be  called’ 

1130  PRINT’D  The  progra*  «culd  end* 

1640  PRINT 
1:30  >3D3bS  4  Z'.’tl 
leoO  PRINT 

ic'O  IF  Tt  *  *D“  THEN  S2T5  1730 

2630  DRlNTa>lRONG  -  the  correct  ans«er  is  S' 

1:40  PRINT*  If  ,;a  don’t  eatisf.  one  of  tne  3N  30305  choices’1 

1700  PRINT”  the  line  defaults  to  the  line  -ust  selOM  it.” 

1710  PRINT*  See  cart  1.  CN  SOSOS' 

1723  5ST3  I'3: 

\'V.  PRINT'SSRREST* 


17:0  INPJT 'cress  EN’ER’iTS 
1”;  SCSfc’B  4l3C 

1  zi  ‘■RIN’hom  a  an  v  RETL’RNi  can  /ou  have  in  a  subroutine*’'' 

1790  PRINT 

130 o  PRINT “A  One* 

1310  PRINT'S  As  un«  as  »ou  aant.  tut  tfte>  should  be  reoi  to  a  sina-ua* 
13Z0  PRlirX  One  e.sr*  SCSOS" 

1331  PRINT’D  No  s or?  than  tne  eaour.t  of  seaorv  available’ 

134v  -PINT 
1330  SC 3 LB  410; 

IS if  PRIN* 

137;  IP  S  *  ’3-  *HE‘(  sere 


1331  *9  IN’  SRG.N8  -  fe  cor 'set  ans*er  is  3* 
1341  ?:INr”  See  cart  1.  Subroutines' 


1 
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4:2 

413 

:^4 


FRIST 
RUN1  NEMO  ‘ 

RLH-HW54 
CLOSE 

OPES'!".  I,  "SCORES'1 
4270  IF  EOF !  1 !  THEN  STOF 
423')  INPUT#! .  A*.  N 
4290  PRINT  At. N 
4300  SOTO  4270 


.1  “* i. 


1 


*****  Listing  of  Prograa  'LESS0N6'  ♦♦♦♦* 


j?/;o/s:  -  54: m 


UtO  3GSUB  aS;0 
S470  PRINT 

1J30  PPINT'Piease  t.ge  in  the  nuaoer  beside  the  area  vou  uish" 

!49j  PSINT'ta  'e*ie*  i!  through  Si  and  then  press  ENTER  -  press  0  and' 

1-00  PRlNT'arass  ENTER  t:  return  to  the  Hen u.' 

1510  PRINT 

1510  lNPuT"isriat  is  -.our  chcice'.N 
1530  IF  N  *  ■)  SOTO  7025 
1540  CN  N  30£U£  1560.2220,3220.4090. 4507 
155C  3QT3  1450 
15c!  50SUB  i5!0 

1570  PRINT'  INTRODUCTION" 

1530  PRINT 

1590  FRINT'TMs  is  /our  last  lesson1  Congratulations'  IT  ,ou  have  taler,'1 
1600  PRINT "the  previous  ti.e  lessons,  vou  should  &e  reeling  a  little  sore' 

I#1J  PRiNT’csetortable  with  Microsoft  BASIC  ay  non." 

1620  PRINT 

lo32  PRINT" In  this  lesson  us  «i!l  :c*er  STRING  functions  first,  ano  then' 

1  o 4 0  PRINT"*.?  »ii!  learn  about  the  Microsoft  Editor  (ir,  the  second  half!.* 

•  ,ta  EJJ’^7 

ScaC  PRINT'S?  «e  learned  before,  a  BASIC  string  is  one  or  lore  aloha-'' 

1670  PRINT’nuseric  :?ar alters  that  are  treated  as  a  single  cdllsotton  of" 

163 0  PRINT’data.  Using  the  contests  this  chaoter,  vou  can  oerfora" 

1690  PRINT  "Man-,  of  the  sase  t/ces  of  saeraticns  on  STRINEs  that  >cu  * 

1 "00  PRIhT*:an  os'fora  on  nuaeric  data." 

1'10  PRINT 

1  720  INRUT'cress  ENTER"; T 5 

*  ■?^(*j  'Tf  f  /• 

1*40  PRINT”  INTRODUCTION" 

i"5C  PRINT 

1  "60  8RI!4T"As  a  sjail  review.  vou  should  reaeader  that  string  data  can  he" 

1770  PRlNT’designated  .n  tao  wavs.  Tou  can  assign  vour  gata  to  a  string’ 

1730  PRINT" .ariable.  or  ,-ou  can  enclose  the  data  ir  ouotes.  Here  are  two” 

1790  PP.INT'eaaaoles.' 

1 300  PRINT 

1310  PRINT '1 7  PRINT  "CHRti34i 'This  is  one  way  to  designate  a  string  “CHFt.34! 

1320’  FRONT" 20  0$  -  "CHRS.34! "Another  wav  is  to  out  it  tn  a  variable  and  arirt  it'CHRS 
133)  PRINT”!-:  “ONI  VS" 

1340  PRINT 

135')  PRIN"Lire  lj  ormts  the  string  data  meediatel and  line  20  loads" 

!9oi  PRINT  "the  variable  VS  mth  the  data,  VS  can  then  be  onnted  «hen-" 

:S7v  PRINT’S. er  *e  want  it." 

133  0  PR  IN" 

I NPU  7  o r  es  s  ENTER’:  75 


»***»  luting  at  Prograa  ' LESSCNfa '  **»♦♦ 


07/10/83  -  04: 14: 1 


!«20  PRINT 

1930  PRINT*  10  PRINT  •*CHR*i34> ’This  ;s  one  wav  to  designate  a  str:r,q*CHRi.:4 j 
1?40  PS  I  NT  *20  V*  =  "CHRS(34)"Ar,d  this  ;s  another  "CHR* '34 : 

1950  PRINT "30  PRINT* 

I «40  PRINT ' 40  PRINT  VS" 

:?70  PRINT-SON* 

1930  PRINT 

I??}  PRINT *Thj 5  is  one  wav  to  designate  a  string* 

:m  print 

ZOIC  PRINT "And  this  is  another* 

2020  -RI NT 

2030  PRINT’Here  is  another  /ariatian  of  our  little  crograa,  Note  that" 

2040  PRINT* ’And  this  is  another’  is  not  crmted  until  line  40  is  executed." 
2050  PRINT 

2040  INP'JT’oress  ENTER": Tt 
2070  GOS'JB  4510 

2080  PRINT*  INTRODUCTION* 

20«0  PRINT 

2100  PPlNT*Resesber,  m  this  lesson,  as  in  all  of  our  lessons,  »ou  should* 
2110  PRINT'have  either  a  good  SASIC  eanual  handv.  or  vou  should  have* 

2120  PRINT" an  esoenenced  orogranser  around  to  helo  vou  with  difficult* 

2130  ?RINT*orobleas.  * 

2140  PRINT 

2150  PRINT "In  soae  of  the  answers  vou  will  need  to  be  sure  vou  use  the* 

21  j0  PRINT  'correct  case  ‘.either  uooercase  or  lowercase!,  so  be  sure  to" 

2170  PRINTVead  ail  the  cuestions  carefully.* 

2130  PRINT 

2190  PRINT  “Set  out  .our  janual.  or  orograwer,  now,  and  let's  ertcv  BASIC'* 

2229  PRINT 

2210  INPUT’oress  ENTER": It 
2220  G03US  6510 

2230  PRINT*  STRINS  ASSI6NKENT* 

2240  PRINT 

225/  Ffi'NT'Ss  we  showed  vou  in  the  introduction,  vou  assign  strings  tc  " 

22s0  PRINT  *  a  variable  and  then  vou  can  print  the  variable  anvwhere  in  the* 
227)  FRINT'orograa.  That  aakes  it  easier  to  write  Iona  oragraa  lines.* 

2280  PRINT'because  vou  don’t  nave  to  keeo  tvoina  in  the  test  even  tiae’ 

2290  PRINT'vou  want  to  ise  the  string  data.* 

2300  PRINT 

2310  FRINV’iOu  can  assign  data  to  strings  using  anv  of  the  stateaents  we” 
2320  PRINT’used  to  assign  nuaeric  data  to  nuaenc  variables.  LET.  READ,* 
233)  PRINT " anc  INPUT  are  ail  used  with  string  assignaent  'LET  is  notional " 
2340  PRINT* ?-jEt  as  it  is  with  nuaenc  data > . * 

2350  PRINT 

22jO  INPlT'oress  ENTEP*:Tt 


*****  Listing  af  Progra*  'LE5S0N6'  ♦♦♦♦* 
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2330  PRINT” Are  these  stateaents  legal7  iassuae  the  arograa  is  test  for" 
23R0  ?R!NT*de»onstration,  and  that  B1  is  hianU* 

3400  PRINT 

3410  PRINT* 10  READ  A* ’ 

3430  PRINT “30  INPUT  A** 

2430  PRINT  *  3  j  LET  AS  =  Es 

2440  : PINT ‘40  4$  =  *CHMi34! "NON  IS  THE  T!RE*CHRI(34» 

2430  PR  INI*  50  DATA  •CHR*t34‘.  "NGN  IS  THE  T!NE*CHRi:34) 

2460  PRINT 

2470  PRINT'S  Nc.  the  LET  statement  in  line  30  is  illegal* 

2430  PRINT'S  No.  the  string  assignment  in  line  40  is  illegal* 

24%  PRINT“C  No.  .on  cannot  read  data  into  a  string  '.line  10  is  tad!” 
2533  PRINT'D  ves.  all  stateeents  are  legal* 

251V  PRINT 

2520  INPUT'ENTER  the  letter  opposite  the  correct  answer"; T$ 

2530  PRINT 

3540  IP  IS  =  *S*  THEN  GuTC  2570 

2550  RRINT’NSCNS  -  all  these  assignaents  are  legal* 

2560  53TC  2530 

2510  PRINT“'23RCECT  -  SUPER  " 

2530  PRINT 

2590  HI  *  NNI  -  •♦CHRI134)*"  NGN  IS  THE  TINE  VCHRti34! 

2600  INPUT 'press  ENTER'; 7S 
2610  8QSL1E)  6510 

2620  PRINT*  String  Assiqnsent* 

2630  PRINT 
2640  GGSUB  6730 
2650  PRINT "RUN” 

2660  PRINT 

26*0  PRINT'THE  6ft INCH* 

2:30  PRINT’IS  CCNING” 

26%  PRINT 

2700  PRlNT'Notice  that  At  was  converted  to  81.  and  all  the  sata  was" 

2710  PRINT'onnted  out  Ov  using  '.ust  Al  in  print  stateeents.* 

2720  PRINT 

2730  INPUT "cress  ENTER": Tl 
2740  60SUS  o510 

2750  PRINT"  String  Assicnient* 

2760  PRINT 
2770  60SLIS  6730 
2730  PRINT 

2790  PRINT'Notice  the  dollar  sian  is  alwavs  included  «th  a  string  * 

2300  PR’NT'vari aSIe.  The  dollar  sign  tells  the  coaputer  to  treat  the* 
2310  PRINT*, ariatle  as  a  string  instead  of  as  a  nuieric.  Also,  whenever" 

2320  PRINT’, 'ou  assign  data  to  a  string,  it  sust  either  oe  another  strinc" 

2330  PRINT  "or  it  oust  be  enclosed  in  quotes." 
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2340  PRINT 

2350  INPUT'press  ENTER”;!* 

23a0  30SUS  6510 

2370  PRINT'Assign  NON  IS  THE  TINE  to  a  string  variable  called  NN*‘ 

2330  RRINT’and  use  line  nuiber  10  as  vour  stateaent  nutter." 

2390  PRINT 

2900  PRINT'Put  one  blank  between  tern." 

2910  PRINT 

2920  LINE  INPUT'ENTER  vour  answer  now  1  ";T* 

2920  St  =  "10  NN*  =  ■*-CHRl(j4it"N0N  IS  THE  TIDE" ‘-CHft* ! 24 
2940  HI  *  "10  NN$  =  "eCHR*(34)f  NON  IS  THE  TINE  *+CKR1l34i 
2950  PRINT 

2940  1?  T*  =  3*  OR  T*  =  H*  THEN  GOTO  3000 

2970  PRINT "NRONG  -  the  correct  answer  is  10  NNI  =  *CHF* (34 )  "NON  IS  THE  Tl.1E“CHfi*'.34) 

2930  PRINT"  (voj  could  have  also  answered  SO  NN*  -  *CHR*i34>"  NON  IS  THE  TINE  "CHfi*.34i* 
2990  SCTQ  3010 
3000  PRINT "CORRECT" 

3010  PRINT 

3020  INPUT "dress  ENTER"; T* 

3o30  SOSUB  4510 

3040  PRINT "Von  can  also  INPUT*  string  data  free  an  external  file.” 

3030  PRINT*', the  following  jrograt  assutes  that  a  file  naked  TEST  was* 

3040  PSINT'oreviouslv  created  on  disk)' 

3070  PRINT 

3030  PRINT"  10  OFSN’CHR*  <  34  >  *  t  "CHM 1 34 1  *. ! .  "CHR* <34 1 " TEST "CKR* ' 34 1 
30*0  PR  I  NT  *20  IP  EOP'.l!  THEN  END" 

3100  PR  TNT "30  INPUT*!. AS* 

3110  PftlNT‘40  PRINT  AS" 

3120  PRINT"50  SOTO  20" 

3130  PRINT 

3140  PR.'NT'A  sroqns  Such  as  this  is  used  tc  read  m  vour  na»e  when  vou" 

3150  PRINT'take  vour  test  at  the  end  of  each  lesson.  The  Original  is" 

3140  PR  I  NT "enhanced  a  little,  cut  the  BASIC  idea  is  the  saae." 

3170  PRINT 

3130  iNFUTVess  ENTER":!* 

31*0  30SUB  4o40 

3200  IF  T*  =  "B"  THEN  SOTO  2220 
3210  RETURN 
3220  GCSUfi  6510 

3230  PRINT"  String  ARRAYS' 

3240  RRINT 

3250  PRINT'You  can  assign  string  data  to  arravs  in  the  sate  wav  as  vou,! 

3260  °RINT‘assign  nuaeric  data  to  arravs.  Nearl.  ail  the  rules  are  tne" 

3270  PRINT'saae.  The  following  is  an  eraaole.’ 

3230  PRINT 
32*0  SOSUB  4370 
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3300  PRINT 

3310  INFUT'oress  ENTER": It 
3320  SQSUS  aS!0 
3330  5QSU6  6370 
3340  PRINT 

3350  PfilNT“Notice  the  CLEAR  statement.  Reaeaber  that  vou  aoraally  have" 

3340  PRlNT’onlv  50  -  100  characters  cf  string  space  available,  ana  if  vou" 
3370  PRINT'are  going  to  need  acre,  vou  need  to  tell  the  coaputer.  Also." 

3330  PRINT’note  the  DM  stateaent  -  «e  need  declare  our  array  sice  if  it  * 

3390  PRINT*’. s  over  10* 

34CO  PRINT 

3410  INPUT’press  ENTER*!  71 
3420  SCSUB  =510 
3430  GC3LS  4873 
3440  PRINT 

345  ;  PRINT'Tne  variable  .<  acts  as  a  counter  to  reference  the  proper  pocket  of" 
34i0  PRl.NT'the  string  arrav.  The  string  arrav  is  referenced  exactly  life’ 

3470  PRINT'the  nuaeric  arrav.  Note  that  this  progra*  mi  1 1  on  1  v  read  in" 

3420  PRINT’the  data.  If  <ou  want  to  print  tt  out.  vou  mil  have  to  add" 

3490  PRINT" sc»e  tore  statements  on  the  bottoa  of  the  orograa.’ 

3500  PRINT 

3510  INPUT "press  ENTER"! Tl 
3520  S0SUB  451C 

3530  FRINT'hhat  is  the  CLEAR  stateaent  tor  m  BASIC"1* 

3540  PRINT 

3550  RSINT’A  To  clear  extra  nuaber  space  for  the  coaputer’ 

3540  PRINT'B  To  clear  extra  string  space* 

3570  PRINT’C  To  xeroixe  ail  nuaber  variables* 

3580  PRINT’D  To  clear  the  screen" 

3590  PRINT "E  To  help  the  oroaraneer  understand  aore  clearly" 

3400  PRINT 

3410  INPUT’ENTER  the  letter  opposite  the  correct  answer " ; TJ 
3420  PRINT 

3430  IF  T*  =  *8"  THEN  SOTO  3480 

3440  PRlNT'tlRQNG  -  the  correct  answer  is  B* 

3=50  PRINT"  this  is  an  laoortant  concept,  vou  #av  wish  to  review* 

3440  PRINT*  lesson  3  before  vou  go  to  the  next  section.' 

3470  SOTO  3490 
3s80  PRINT'CCRRECT* 

3490  PRINT 

3700  INPUT'press  ENTER* ; Tt 
3710  SGSUB  4510 

3720  PRINT*  String  ARRAYS* 

3730  PRINT 
3740  GDSUB  4370 
3750  °R!NT 
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3760  PR IN7 ■  The  rule  for  the  DIN  stateaent  is  the  sase  as  far  nusenc’ 

37'0  PRINT’arravs.  Nhat  ;s  the  eaxieui  sire  of  one  leg  of  a  string  arrav’ 
3730  INPUT  *  i  f  you  don’t  use  the  DIN  stateaent  ...  tvoe  vour  answer  now‘;T* 
3790  PRIM 

3800  IF  II  =  ’10"  THEN  SOTO  3350 

3310  PRINT’WRQNS  -  the  aax  sue  of  an  array  without  a  DIN  statesent  is  10" 
3320  PRINT"  this  is  an  leportant  ccnceot.  you  aav  wish  to  review” 

3830  PRINT’  lesson  3  before  you  go  to  the  nest  section." 

3340  S0T0  3360 
3350  PRINT-CORRECT- 
3360  PRINT 

3370  INPUT’oress  ENTER”: T$ 

3380  G0SC8  6510 

3390  PRINT'Haw  would  ,cu  find  out  what  was  in  the  fifth  socket  of  the” 

3900  PRINT'sinole  diaension  array  Aim'” 

3910  PRINT 

392?  PRINT’S  PRINT  »*(«>* 

3930  PRINT’S  PRINT  Ai(5l* 

3940  PRINT’S  PRINT  A*’ 

3950  PRINT'D  READ  Atm’ 

3960  PRINT 

3970  INPUT ’ENTER  the  letter  opposite  the  correct  answer’;!* 

3930  PRINT 

3990  IF  T*  =  ’S’  THEN  GOTO  4040 

4000  PRINT “4RGNS  -  the  correct  answer  is  B’ 

4010  PRINT"  this  is  an  laportant  concept,  you  »av  wish  to  review' 

4020  PRINT’  lesson  3  before  you  co  to  the  next  section.’ 

4030  GOTO  4050 
4040  PRINT "CORRECT’ 

4050  PRINT 

40i0  INPUT'press  ENTER" ; T* 

4065  GOSUS  6660 

4070  IF  Ti  =  ’8’  THEN  SOTO  3220 
4030  RETURN 
4090  GOSUB  6510 

4190  PRINT*  Concatenation’ 

4)10  PRINT 

4120  PRINT'You  aav  link  two  strings  together  bv  using  the  plus'  »*§ool." 
4130  PR INT*cor  exaaple: ” 

4140  PRINT 

150  PRINT ’10  A*  =  ”CHR*!34) “whers’CHR* ;34 1 
4160  PRINT'20  8*  =  ’CHR*;:4!’Sope’CHft*<34) 

4170  PR!NT’30  C*  =  Ei  ‘  A*” 

4130  PRINT ’40  PRINT  Ct  :’vou  could  have  said  'PRINT  6*  *  A*’  too.’ 

4190  PRINT’RUN* 

4200  PRINT 


!30 


07/10/9’  -  04: 14: 15 


met  Listing  of  Prcgrae  'LE3SQN6’  ***** 


4210  PRINT'Soeewhere' 

4220  PRINT 

4230  PRINT' In  tins  case,  the  sviOol  served  to  ’add”  the  two  strings'1 
4240  PRINT’teather  and  create  anot.ner  string." 

4250  INPUT’oress  ENTER":: I 
4260  S0SUB  6510 

4270  PRINT "What  :s  the  output  of  the  foi lowing  orogra«?" 

4290  PRINT 

4290  PRINT  "19  4*  =  “CHRS134) "FLASH’CHRS!34: 

4 300  PRINT'20  31  =  *CHS*;34) *3ANCE"CHRS<34i 
4310  PRINT"*;  PRINT  AS  *  SS“ 

4320  PRINT 

4330  PRINT'S  FLASH" 

4340  PRINT’S  PLASH" 

4350  PRINT"  DANCE" 

4360  PR.INT’C  FLASHDANCE" 

4370  PRINTED  DANCEFLASH* 

4330  PRINT 

4390  INPUT'ENTER  the  letter  oppposite  the  correct  answer';!* 

4400  PRINT 

4410  IP  TS  =  *C*  THEN  3070  4440 

4429  PRINT"NRGNG  -  the  correct  answer  is  C* 

4430  GOTO  4450 
4440  PR  I NT "CORRECT" 

4450  PRINT 

4460  INPUT’oress  ENTER" :T* 

-47o  SOSOS  6is0 

4480  IF  TS  *  'S'  THEN  GOTO  4090 
4490  RETURN 
4500  GCSUB  =510 

4210  PRINT"  Str l no  Functions" 

4520  PRINT 

4530  PRINT'Fcr  this  section  vou  will  definitely  need  vcur  BASIC  eanual,  so" 
4540  PRINT’oet  it  cut  now." 

4550  PRINT 

4560  5RINT"As  with  arithmetic  functions,  there  are  STRING  functions." 

4570  PRINT'STRINS  functions  are  used  to  aampulate  or  explore  the  contents" 
4530  PRINT "of  a  string.  On  the  next  screen  tnere  are  several  exazoles  of” 
4590  PRINT'STRINS  functions.  He  will  go  over  several  of  these,  but  you" 
4600  PRINT"*! 1 1  net  have  to  aesarice  thee.  Rather,  you  shculo  unoerstand" 
4610  PRSNT'that  if  ,ou  need  to  access  or  eodifv  anv  kind  of  string,  you" 
4620  PR INT "can  orcbaDlv  find  a  string  function  that  will  do  the  job  for" 
4630  PRINT* vou.  String  functions  can  oe  used  as  oart  of  USER  functions* 

4; 40  PSINT'as  vou  saw  in  lessen  5." 

4650  PRINT 

■3i(  I  NFL*  ‘cress  ENTER  for  soee  exaiples  of  string  functions':!* 
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4470  SOSUB  5510 

4:30  PRINT"  String  Functions’ 

4490  PRINT 

4700  PRINT*  1 1  ASClstnngl  5)  LENlstnng)' 

*710  PRINT*!)  CHRv.em!  4)  NIDiistring. position. length; 

4720  PRINT'S!  FREtstrmaf  7)  RIGHT* T string. lerigtM “ 

4730  PP.INT*4T  8)  LEFT* (strina, length) * 

4 '40  PRINT 

4750  PRINT’At  First  qiance.  these  functions  look  like  a  lot  of  GREEK,  in’ 
4750  PRINT’fact.  they  !cck  prettv  bail  at  second  glance1  However,  they’ 
4770  PRiNT’rsali.  are  oretty  eas.  to  use,  once  you  understand  thea.  The* 
4730  PRINT’test  wav  to  learn  hot,  to  use  the*  is  to  sake  a  short  grccras* 
4790  FRINT’and  use  thea  one  at  a  t:*e  until  you  see  what  they  do.* 

4300  PRINT’Ne  mil  gc  over  esaaoles  ;f  a  couole  to  helo  ,ou  catch  on." 

4317  PRINT 

4320  INP'JT’cress  ENTER" ; T* 

4230  633113  45!') 

4243  PRINT’ Is  the  ‘aliening  statetent  TRUE  or  -"ALSE" 

4330  PRINT 

4340  PRINT’String  functions  are  used  to  samoulate  data  within  string* 

4370  PRINT* variables. ’ 

433;  PRINT 

‘390  pr:n**a  true* 

4900  PRINT'S  FALSE" 

4910  PRINT 

4927  INPtf’ENTER  the  let:®'  oososite  tne  correct  snswe- “ ; T* 

4920  PRINT 

49*0  IF  Tt  =  ’A”  THEN  GOTO  4930 

4950  PRINT’NRONG  -  string  functions  ARE  used  to  tameuiate  stnno’ 

4»4')  PRINT’  variables. " 

4970  SOTO  4990 
4930  PR I HI " CORRECT  * 

499'j  PRINT 

5CC0  iNFUT’oress  ENTER1 5 T* 

3017  SOSOS  4310 

5C20  PRINT’  String  Functions* 

3030  PRINT 

3740  GOSUS  4930 

5)50  PRINT’S)  PRINT  ASC • A*; ’ 

50:0  PR  ITT 

5070  PRINT"  ASC  '.string!  is  a  function  that  returns  the  ASCII  code  of  the* 
5060  ‘‘RINT'first  character  of  the  string.  ASCII  stands  for  'AMERICAN’ 

509)  FR.1NT”STANCARD  COSE  for  INFORMATION  INTERCHANGE,  took  uo  the  ASCII" 
3100  9?IN"code  'or  the  first  letter  of  At  m  /our  EASIC  aanual.  Nhat  is* 
511)  PRlNT’it’  Ycu  should  have  -ound  it  to  be  "  decual." 

3:2)  ?R.'NT"*hsr-  -cur  caaouter  writes  data  files  to  am.  it  usual’,  writes 
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2 1 3C  FRINT'tnes  in  ASCI  I  cade,  one  letter  at  a  iiae.  This  function  nas" 
5140  PRINT'use  ahen  vou  are  trying  to  convert  characters  to  their  nueSer* 
5150  PRINT‘equivalent. ' 

51=0  PRIST 

5170  INPUTVess  ENTER*; 7$ 

5130  6QSUB  6510 

5190  °RINT"  String  Functions' 

5100  PRINT 

5510  ''.FIST "PRINT  CHS*  177/'* 

5730  FRINT’CHRI less!  returns  the  oooosite  3<  the  ASC string;  function.* 

5240  PRINT* It  returns  a  character  equivalent  of  denial  77.  tthicn  is  \N  ." 
5250  PRINT 

5260  INPUT’oress  EN*ER*:T» 

527C  SOSOS  6510 

5230  PF.INT’What  is  the  outaut  of  the  fel’.ouirc  oroura&’" 

5290  PRINT 

5300  PRINT'D  PRINT  ASCi  *CHR»  -.34 '  *A*2HPJ  34'"* 

5310  PRINT* 20  PRINT  CHRI:==.  ’ 

5320  PRINT 
5330  PRINT'S  4* 

5240  PRINT-  4i' 

5350  PRINT"®  =5" 

53aC  eRINT*  S" 

5370  PRINT'S  A  S' 

5330  PRINT'D  3’ 

SI?'.'  PRINT’ 

5400  PRINT 

5410  INPJT’EMTER  the  letter  oooosite  the  correct  answer "> TS 
5420  PRINT 

5430  IF  T$  =  *8*  THEN  5QTQ  5480 

5440  PRINT’XfiQNS  -  the  cor-ect  answer  is  o'* 

5450  PRINT"  3* 

54=0  PRINT  '  he  sure  to  use  vou r  sanua!’* 

547C  307 C  5490 

5450  PRINT ’CORRECT  -  GREAT'* 

54«0  PRINT 

5500  INPUT’oress  ENTER* ill 
5510  GG5LIB  if  1 J 

5520  PRINT"  String  Functions* 

5530  PRINT 
5340  GOSOS  6950 
5550  PRINT *20  PRINT  LEN'All 
53aC  PRINT 

5570  PRlNT'cENistrinc;  is  a  function  that  returns  the  length  of  the  string" 
3333  PRINT’that  is  m  carenthesis.  Ir.  this  case  it  should  return  17." 
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5540  PRINT 

560C  PRINT’What  is  the  value  or  LEN " CHR* ' 34 ) *TQ«  S«IFT*CHS*C4s 

Oil-)  PRINT 

5420  PRINT'S  11” 

3430  PRINT'S  3" 

5440  PRINT'C  1” 

5450  PRINT'D  9* 

5440  PRINT 

5470  INPUT'ENTER  the  letter  oooosite  the  correct  answer*;!* 

5a80  PRINT 

5 490  IF  II  =  *0"  THEN  SOTO  5720 

5700  PRINT’NRCNc  -  the  correct  answer  is  D* 

5710  SOTO  3730 
5720  PRINT"CGRREC7' 

3730  PRINT 

5740  IMPUT’aress  ENTER*; !* 

5750  SOSUf  4510 

5740  PRlNT'Now  vou  have  to  do  soae  work  Tar  /ourself.  Nhat  mil 
5770  r SINT'outout  of  the  following  oroqra»'“ 

5780  PRINT 
5790  SGSlJS  4980 

5300  FRINT'20  PRINT  LEFT*iA*.2>" 

5310  PRINT 
532'/  PRINT'S  «v* 

5330  PRINT'S  fl* 

5340  PRINT'C  (tv  aching* 

5850  PRINT’D  Nothing  ml!  he  cutout’ 

3340  PRINT 

5370  INPUT'ENTER  the  letter  opoosite  the  correct  answer*;!* 

5380  PRINT 

5390  IF  T*  =  *A“  THEN  SOTO  5930 

5900  PRINT'NRQNG  -  the  correct  answer  is  A* 

5910  PRINT 
5920  SOTO  594 0 
5930  PRINT*  CORRECT  * 

5940  PRINT 

59*0  INP'JT’sress  ENTER*;!* 

5940  SCSG8  4510 
59 '0  GGSUB  4930 

5930  PRINT'20  PRINT  HIDMAM.a) “ 

5?50  PRINT 

iO'/C  INPUT'ENTER  the  cutout  of  this  orcora**: TJ 
a010  ?RINT 

4030  !r  T»  =  ’schiofi*  ’HEN  GOTO  6050 

4/3:  -R;n7"4PCN6  -  the  correct  answer  is  achmo* 
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4050  PRINT'CQRPECT  -  !'*  alad  tc  see  vou  use  the  000!.!“ 
al’SO  PRINT 

c*)70  INPUT" jress  ENTER* ; T S 
i 030  GOSUB  a51C 
:O90  305U3  4930 

SlOO  PR  I  NT *00  -PINT  RIGHTS iAS, 4; * 

3 110  PRINT 

S 120  INPUT  ’ENTER  the  cutout  of  this  oroqraaNTI 
oiTC  PRINT 

3140  IP  TS  =  'oers*  THEN  G0TC  4170 

4150  PRINT’NRCNG  -  the  correct  answer  is  qers* 

4140  GOTO  41G0 

i!70  PRINT-CORRECT  -  qcoo  ,iot“ 

4130  PRINT 

si 90  INPUT “press  ENTER* ill 
s 200  GOSUB  4510 

4210  PRINT3  String  Functions" 

s 2 20  PRINT 

a230  PRINT”Here' s  an  ir.terestino  function,  it’s  caileo  INKEYS  ana  it" 
s24)  FSINT'stroSes  vour  keyboard  GNCE  ana  if  a  kev  is  depressed,  it" 
a25j  PRINT'returns  the  character  that  was  pressed.  Here  is  an  exaaple  of” 
3240  FRINT'how  to  css  it.* 

327)  PRINT 

oCoO  PRINT*!*?  IF  INKEtS  =  ,CHRStt4>*S*CHR«i:4i'  THEN  END’ 

4290  PR I NT *20  GCT3  10* 

4200  PRINT 

allO  PRINT'If  vou  t.oe  tn:s  sroarae  in  exactly  as  shewn,  and  RUN  it.  it  “ 
3320  PRINT"wil!  leec  runnino  until  »cu  cress  the  ’S’  Lev.  Try  it  when  vou" 
s330  PRINT’are  done  here.’ 
s-340  PRINT 

t350  i.NfUT"oress  ENTER" : Ti 

3j{j0  GOS’JB  4460 

437?  I"  TS  *  *3*  THEN  SCTQ  4500 
3 33C  RETURN 
4.9c  SCSUB  c5!'j 

:J00  PRIh'T'vou  have  finished  the  firs:  cart  of  lesson  4.  If  veu  wish  to' 
4410  ?RINT*re>iew  this  oart.  type  in  ’R’.  if  vou  want  to  continue  to  the" 
c 42)  PRINT *ne:.t  half,  t.oe  in  ’C'* 
s430  PRINT 

3*4?  INPUT  "ENTER  an  R  :r  a  CVS 
3450  IF  TS  =  *c*  THEN  RUN 
346.:  IP  TS  "C*  THEN  GOTO  3290 
2470  Go’s 
a430  REN  ♦* 

‘4*0  !EN  **  "his  sutroutme  clears  the  screen  on  any  termnal 
3500  REN  ♦* 
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sSlO  FOR  I  s  i  TO  34 
6520  PRINT 
c530  NEXT  1 
ii40  RETURN 

a! 50  PRINT'  LESSON  6' 

6560  PRINT 

6570  PRINT'This  is  the  first  part  of  a  two  part  lessen* 

6580  PRINT* It  is  divided  into  the  fallowing  sections.” 

6590  PRINT 

6600  PRINT'D  Introduction  4.'  Concatenation" 

6610  PRINT'S)  String  Assignunt  51  String  functions' 

6 a 10  PRINT’3!  String  ARRAYS' 

6630  PRINT 
6640  PRINT 
6650  RETURN 
66a0  GCSU8  6510 

5670  PRINT’Nhich  do  you  wish  to  do’” 

6530  PRINT 

5590  PR  I  NT 'A  Continue  on” 
s 7 00  FRIST’S  seview  this  section  again' 

5 'MO  PRINT 

5720  .'NPUT'oress  the  letter  opposite  the  correct  answer  anc  oress  ENTER* : T* 

5730  IF  T»  -  ”A"  OR  T$  =  ‘S'  THEN  RETURN 
6?4t  S3  TO  555O 
j75J  REP  *< 

5,5d  REP  ♦*  subroutine  for  string  assigneent  eiaopie 
;aw  <•» 

a73:  FRINT'10  READ  AS.BS' 
s790  PRINT'IO  PRINT  AS" 

5900  PRINT'3;  H»  =  £$“ 

5310  °PI?XT”4 0  PRINT  AS” 

55.’0  PR:Nt*50  3ATA  “CHR* !34:  'THE  SRINCH'CHRSCAi  '."CHRSi34)’lS  CCHING'CHRS (34; 

5830  RETURN 
e840  REN  h 

6850  REP  **  auircutine  for  arravs  esaaole 
i860  REN  t* 

6370  PRINT'IO  CLEAR  2000* 

5380  PR  I  NT  *20  31.1  AS!  1001* 
c3?’3  PRINT-30  X  =  0" 

6900  PR  I  NT "40  X  *  X*l* 

6910  FRINT'50  INPUT  "CHRSi 34; 'ENTER  jg  to  «9  strings.  ENTER  'END’  to  stoo'CHRS  34,  “;AS  .1 
s9I0  PRINT 'SO  IF  AS'Xl  =  *CHRS'.34;  *END'CHRI(34)*  THEN  END" 

6930  P-INT'-O  SOTO  40* 

5940  RETURN 

5950  »* 

i’ic  ;£ft  ♦♦  this  is  subroutine  for  STRING  FUNCTIONS 
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4970  RE.*!  « 

4930  PRIMTMO  Ai  *  "CHR*C4)*«v  aching  fingers'CaR* 
4990  RETURN 
7000  BEN  ** 

70 16  R£«  ft 
7020  RUN  ’NENU* 

7030  PRINT 
7040  PRINT 

7050  PRINT’Somq  to  the 
>  RUN  "LESaCNaA* 


next  nart.  alease  standby 


0?/tQ'a3  -  04:2?‘.39 


*♦*»*  Ustma  a*  Prograa  ’LESS0N4A’ 


253  SGSUB  21000 
745  3CSUB  30000 

890  PRlfJT'A  I’*  tafcmc  this  oart/dh  its  entirety. * 

800  PRINT'S  [  wish  to  revie*,s£iectep  areas  '.or  take  the  test)." 

902  PRINT'C  I  want  to  50  tfi  the  first  part.* 

904  PRINT’D  I  *ant  toXeturn  to  the  flenu." 

910  PRINT 

915  INPUT’Press  either  capital  A.  3,  C,  or  S  and  then  press  EhiTES’;T> 

920  IF  r(  -  “3”  GOTO  48000 
822  IP  It  -  “C*  GOTO  49000 
930  IF  ft  -  ‘B"  SOTO  1000 
940  IF  T*  i‘*A“  GOTO  890 
-*50  GOSliS  2000 
955  30SUB  3000 
940  SCSUS  4000 
975  30SUB  400Q 
974  GGSuB  7000 
979  30SU8  3000 
979  GCSUB  10000 
530  30SUB  21000 
9?0  5CTQ  49000 
1000  GOSliS  21000 

1002  GGSUB  30000 

1003  PRINT 

10S5  FRINT’Pi ease  tvoe  in  the  nurter  deside  the  area  *cu  <H5h* 

1010  PRINT "to  revie*  !l  through  7}  and  then  press  ENTER  -  press  0  and" 

1015  PRINI’press  ENTER  tc  return  to  the  Renu.' 

1025  PRINT 

1030  INPOT’tihat  is  .our  choice* ; H 
1240  IF  N  -  3  GOTO  43000 

1050  CN  N  GOStiB  2000.3000.4000.4000.7000.3000.47000 
1040  30TQ  1O00 
222:}  SOSOS  21000 

2010  PRINT*  !' troduction* 

2020  PRINT 

2030  FR'NT’This  part  of  the  coeputer  assisted  instruction  procra*  has  ' 

2040  PRINT’notnma  t;  do  with  SASIC.  Instead,  it  is  about  the  rticrosoft* 
2050  PR’,NTaEditor  which  allows  you  to  edit  SASIC  orograa  stateeents  so  you” 
2040  PRINT’defi’t  have  to  retvce  a  ancle  SASIC  line  ;.ust  decause  of  one" 

2270  PRINT’tvGO.  Using  the  editor  takes  it  ver,  easv  to  alter  the  line." 
2030  PRINT 

27?2  rRINT’Until  you  set  faeihar  with  the  editor,  you  eav  wish  to  uke  a" 
2100  5R IN'" little  '-heat  sheet'  so  vou  can  have  the  coaeanas  available  for" 
2117  PRlNT’ouicf  reference.  Throughout  this  part  ;ou  should  have  your'1 
212'  ?RINT*san«aI  pees  to  the  editor  portion  so  .ou  can  follow  along.” 

2132  PR IN 7 


»**♦*  u stirs?  cf  Procras  'LESSONSA1  ***** 


43:0  N  *  i«ST?. -.ai.fi*; 

436 -J  !F  S  =  '■)  THEN  N  :  31 
4370  Final  -EFTiiOt.S-l. 

4330  prist 

4590  PRINT 'ACS*  toother  met  arse...  E047E.*  to  ao  aaair..  else  ENTER  an" 
4 tco  ihp'j:**m’*;:* 

4510  print 

4?:o  IF  T*  *  T  THEN  PRINT” '.Search  Tar  &  ';:3GT2  4770 
453)  I?  Tl  ”N"  THEN  5070  439C 
4 940  jOSOE  71000 

4950  rSIST’  nSPACESAR.  nSiearcft)" 

45j0  PRINT 

4973  PRINT’yot.  asil  ha/e  noticed  that  tne  cursor  stosoed  BEFORE  the  4 
498C  PR, NT’charactsr  that  -ou  mere  searching  tar.  That  is  «r.a:  is  J 
49«0  FRINi  .uocosed  to  haooen.  In  addition,  it  ,ou  as *ed  to  search  tar  a" 
4*95  PRIST'ocn-esister.:  character,  ins  ca.ic.ter  or  listed  the  whole  line." 
5000  PRINT 

501')  FRIfi7"No  dcucc,  >cu  «ill  also  r.a.e  noticed  that  there  is  a  i ewer  case'1 
502-3  PRINT1'!!-  i.-i  the  title  nSrearchs.  It  sisoly  stars*  that  you  can* 

5:7)  ?RiXT"search  tar  tne  htrs  occur  arses  an  the  scecitic  character." 

5)43  PRINT ‘For  esaesie.  it  «e  «ere  :rs  the  EBIT  *oce  ‘zr  hoe  10.  an-:  we4 
5)50  PRINT'aanced  to  * cr.d  the  second  occur ance  at  tne  letter  'Ft'  then  *e" 
50:0  PRINT'oCuIc  t.-ae  '3ER'  an-  the  c.rsar  would  skio  aver  to  the  R  in” 

5)70  FRINT'PRItr  :.” 

5u°0  PRIST 

5  IK  I:iFJ'"oress  ENTER"; ”5 

c  .  1 

513)  PRINT"  r, SPACEBAR.  nSisarcr.)" 

5:40  PRINT 

5:5.  PRIST’Hers  is  an  siaaols  at  the  nSiearoh!  feature." 

51s)  FRIS" 

«t  LC  DG’.jT  *•  «’j 

5:’)  “SINT" £j I T  to- 

5:3;  PRINT'!.  I'Now  tvoe  3SR  to  find  2nd  occurance  of  R  in  10" 

5125  PRINT 
5137  PRINT 

5190  PRIST” 13  FCR  t  =  s»to77  IP* 

5l95  RRINT 

5200  PS  1. NT” The  cursor  would  stoo  ;usc  defore  tne  ntn  occurance  of  ?.  ’ 

52 1C  PRINT 

533)  INRtT'oress  ENTER ':3S 
5230  SCStiB  21-JCC 

534  )  PRINT ’-hat  *cdC  >ou  t.ae  to  fins  the  2nd  accoraice  a*  the  character" 
525)  p;:ST"‘"  i:  a  line  vsu  we-e  eaitmo  assuae  .ou  a-e  already  in  the’ 
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3330  IHPUT’SSTE?.  .our  answer  now'sTS 
53=1  PRIST 

3300  T$  =  *3S7"  THEN  30TC  3330 
5310  PR1MT“NRQNS  -  you  should  tvce  337“ 

5330  30 T 2  5340 

5330  PRINT 'CORRECT  -  GREAT ‘ “ 

5340  PRINT 

5350  INPUT 'press  ESTER'S II 

5jsO  50308  40uCO 

5370  IF  Tl  =  *3“  THEN  SOTO  4000 

535)  SETdSN 

30 uo  SOSl-S  31000 

6 :  of:  ji  =  *to  for  i  -  5*t3?7  : print  y  :  nett  z* 

svOs  OH  =  'FOR  s  *  '  s !  ‘  * 1 " 

aOlO  PRINT*  nOleletei* 

=030  PRINT 

=030  PSINT'Hacetuilv.  vou  are  catching  on  to  the  wav  the  tcvs  and  girls  at” 
a04C  FRINT’Nicr asoft  are  doing  things,  and  won't  ha/e  toe  such  trouble'1 
s03v'  PRINT1  with  this  caaeand.  It  does  wha:  it  loess  life  it  does.  It" 
s-osv  pRlNT'celetss  characters,  one  at  a  tiae.  or  V  at  a  ties.' 
z jTv  PRINT 

a, So  PR IS” 'eor  s. ancle.  if  vou  are  m  the  E3IT  *ade  for  line  10  and  vou  * 
cOPO  :'FINT"«ant  to  delete  the  NEnT  character,  then  tust  cress  0  and  the" 
=»M  PSINT'character  will  he  enclosed  in  esc’.aaatian  aarks.  The  euclaea-" 
allO  RRIST'tian  aarks  indicate  that  if  ;ou  don’t  change  things,  then  the* 
aill-  PRINT*-, e»  line  will  not  have  the  character  in  it.* 

print 

aI4-5  INP'JT'jress  ENTER'S TS 
=150  32SI/S  31000 

a  I  SO  RRINT'fln  e  ..-ancle  of  the  Dielete:  coa*«r.d  would  be:’ 
a  1 5 0  PRINT 

=30,  PRINT”! 7  FOR  <  *  s*to7’  SPRINT  r  INcXT  3* 

3310  PRINT'EDIT  iC“ 

3331'  PRINT". j  s'ogw  sav  we  want  to  delete  the  ’s*’  chars* 

=330  PRINT"  :’all  we  do  is  out  the  cursor  to  the  left* 

3340  PRINT "  : 'of  the  two  characters  ar.d  oress  2  twice" 

=350  PRINT*  10  FOP  i  =  ’s"*1  ’.’and  it  would  look  like  this” 

=3=0  •CINT*  '.’then  we  would  cress  ENTER  and  we  wouid” 

=3=3  -PINT 

:3TC  PRINT ' IC  FGR  1  =  to7?  SPRINT  t  : NEXT  Z  s  have  this’ 

=330  Pfiisr 

=:?:  PPINT"S;ud-.  this  exaaole  ana  read  the  aocrccnate  caragraoh  m  .cur1 
33-15  PFTNT’aaruai . " 

=::•;  PRINT 

INPL'T’sress  ESTER.*;:* 

=  1  •>  533 J5  I'.1}','.1 
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Listing  at  Proqra*  ’LESSQN4A'  ***** 


3330  PRINT*  nD'.elete;" 

6360  PRINT 
437)  PRINT  QS 
4330  PRINT 

*390  PRINT’No*  it  is  «our  turn,  you  have  to  EDIT  the  above  line  so  that" 
s400  R.R.'.NT'the  characters  's*'  are  deleted,  You  east  delete  thee  ore  at  a 
s4i0  PR!N!‘tiae  .as  we  showed  *ou  in  the  orevious  esaeoiei.  First  tvoe" 
34211  PRIST’the  acsracnate  caaaand  for  editing  line  10.  then  so/e  the  ' 
=430  PRINT'spacesar  over  to  the  aooroons^e  olace.  then  oeiete  the  two'1 


4440 

PRINT 

"of  fendma 

characters,  then  oress 

ENTER1  use  uooer  case;" 

3450 

PRINT 

:43'I 

INPLT'ENTEF.  the 

44'C 

PRINT 

3430 

IF  S 

»C?h  •  T  * 

THEN  PRlNT’iiROSj  -  ■, 

.ou  sr.culo  t.ae  m  EDIT  13  first 

6450 

PRINT 

!v  "  * 

a4»9 

i  Z  J 

65)0 

A»  = 

TNt  E  ;5 

=5i : 

IF 

Al 

=  ""  THEN  3CT0  { 

c.  •• 

S  tiv  v 

*ziz 

T  “ 

Ai 

=  THEN  AS  = 

•t" 

_ c  “V 

’  2 

41 

=  CHR*i32i  AND  i 

;  3  THEN 

:  =  ;  ♦  '.'.print  hits  cis. i. 

UilGOTC  6500 

of  r  j 

*  r 

-S 

=  *:  ■  an:  ;  3 

'-E.N  -'PINT 

:PR!NT"wP2n5  -  don't  cress 

D  until  rust  before  the 

; 

1 

.:;nt:pr;nt'STaf" 

;  >;EP  ' :  PP 

I NT : PRINT  DSlSDTD  6453 

zl1:J 

!  C 

41 

z  "a  *  AND  I  •  3 

’HEN  PPINT 

*t?t  ;fl!t  3  "*  :  • ;  =  1  :;r- 

3  4500 

,  CJC 

•  3 

41 

-  •:*  ans  ;  = 

:  THEN  A  BIN' 

'  'iDiiDis.i:.:;!;]  *  :5:=o 

:c  5 5oo 

zZlii 

t  r 

k  " 

ASC 

AS'  =  ::  an:  I 

:  15  THEN 

PR IhtT : AREN'T “saf'CNj  -  do  .net 

hit  ENTER  „nt;l  *su  are 

ucr 

.eJ: 

r® IN*! TR> 

a5A!n*:pr;! 

NT:  ECO  4450 

%  C  .  • 

IF 

ASC 

•AS'  *  13  AND  1 

=  15  THEN  ! 

DCTD  ioCO 

it  00 

RRINT’toT* 

'.PRINT  \  '.NElT  Z" 

SRINT 

PRINT" The  , 

.ire  ;n  the  coabuter's  aetorv  would  now  look 

: NEXT  Z" 

GoX? 

PRINT 

colli  PSIHT'SREAT  ...  It  you  want  to  dc  it  again,  cress  else  cress  ’S’” 
4623  INP'JT'ENTER  .our  choice  now  :Y  or  N!*;T$ 
a63;  IF  TS  *  THEN  30TC  6340 
3640  SOS’JB  21  TO? 

3350  PRINT*  nStelete” 

364 0  PRINT 

4 o 70  FRINT’For  the  ecaaole.  we  orotected  >ou  fro*  ai stakes  bv  iqnonnq" 

63'20  PRINT’soie  ccisar.ds.  and  telling  you  what  vou  did  wronq  far  others." 
44?')  0fiIMT*IP  vjj  really  are  editing  a  line,  be  sure  >ou  cress  the  right" 
6*0C  PRINT'buttons,  because  vou  won't  get  warnino  itessaqes'  ihcwever." 

4*13  PRINT’vcu  seldoa  rum  what  vou  have  done,  the  editor  is  very  for-'1 
4720  FRINT'an’.nq.  it  usually  leaves  .ou  soaeth.no.  even  when  vou  lake  a* 
37:0  ^RTNT’bco-boo"' 


'45 
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4740  PRINT 

4750  PRINT'As  vcu  »av  nave  guessed.  the  V  svaboi  in  the  title  indicates" 

4740  PRINT" that  you  aav  delete  ’n'  characters  at  a  tiae.  If  *ou  oress  a" 

4770  PRINT'nuaber  and  press  0.  then  that  is  hen  aanv  characters  will  be” 
a;30  PRINT'deleted. “ 

4790  PRINT 

a300  INPUT'oress  ENTER"; T4 
4SI0  6C3UB  21000 
4323  PRINT  3$ 

4330  PRINT 

4340  PRINT" If  ae  Manted  to  oelete  s*’  ail  a  once,  we  could  positior  the” 

4350  FRINT'cursor  to  just  before  the  ’s’  and  tvee  in  2D  and  both  " 
s340  PRINT'characters  «oula  appear  like  this:  Is*1" 

4370  PRINT 

4330  PRINT"Note  the  esclaaation  narks,  in  this  case,  are  around  both" 

4390  FRINT’characters.  Mien  you  pet  through  here,  practice  with  soae" 

4900  PRINT’Iines  you  have  arbitrarily  aade  up.  You  will  see  that  this" 

4910  DRINT*coa»and  can  be  /erv  handy." 
a920  PRINT 

4935  INPUT’press  ENTER" ; Tt 
4*40  SOSOS  40000 

4950  IF  T4  --  "3“  THEN  SCT0  4000  i 

4940  RETURN 
7000  GQSUB  21000 

7010  PRINT"  X i tend  liner 

7020  PRINT 

7030  PRINT'This  is  one  of  the  easiest,  and  aost  useful  of  the  cauands" 

7040  PRINT" It  allows  you  to  start  uo  at  the  end  of  a  line,  lust  as  if  you* 

7050  PRiNT-never  pressed  ENTER." 

7040  PRINT 

7070  PRINT'First.  ,ou  go  to  EDIT  sode.  then  sou  press  1.  When  vou  do.  vcu" 

7030  FRINT’miI:  see  the  whole  line  displaced.  and  .ou  can  add  anything" 

7)9v  PRINT": r,  to  the  END  of  it.  Tr.  it  new.  First,  type  the  coaaand  to" 

7100  PRINT'get  into  EDIT  aode  for  line  10.  then  press  1.  then  tvoe  in' 

7110  PRINT "an vth:ng  sou  want  I aost  aicros  allow  a  aaciaua  of  249“ 

7120  PRINT'characters*.  Then  press  ENTEF.  Do  it  now." 

’130  PRINT 

’140  0*  =  "FOR  t.  =  to  1'  :FRINT  Y  PNEXT  Z* 

7150  INPUT'ENTEP  the  ‘:rst  :0T»and*iTS 

'•.30  IF  TS  .  "EDIT  10*  THEN  PRINT: PRINT  "NR0NS  -  you  should  type  in  EDIT  10  f irst ■": PRINT: GCT3  7 150 
7165  PRINT  I 

7170  PRINT’10  *!  I 

7130  4$  =  INKERS  I 

7135  IF  44  *  "•<:*  THEN  44  =  T  I 

7190  IF  44  "Y,"  THEN  SOTO  7130  | 

7200  PRINT  04:  1 
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7210  LINE  INPUT  T* 

7230  GOSUB  21000 

7240  PRINT'Vour  new  line,  which  was  the  sue  of  the  old  line  10  cl  us  the" 
7250  PRINT'aata  you  tyoed  in.  is  now  this:* 

7260  PRINT 
7270  PRINT  01  ♦  TI 
7230  PRINT 

7290  PRINT'Neat  huh'’  You  will  find  yourself  using  this  csasand  the  sost." 

7291  PRINT 

'292  PR!NT“As  usual,  we  orotected  you  fro*  laking  ustakes,  hv  only” 

7293  PRINT’aliowing  *ou  to  eaecute  the  Xitend)  couand.  Re*e»ber,  you" 

72°4  PRINT'will  have  »uch  acre  freedo*  it  you  really  are  m  the  editor* 

'2Q5  ?RlNTuaode.  In  fact,  in  the  real  editor,  vou  can  use  the  hack  arrow* 
*2ci  PRINT’to  wije  out  the  end  of  the  line  you  are  editing,  and  reolace' 
7297  PRINT’the  aid  data  with  new  stuff.  Be  sure  to  practice  this  and* 

7293  PRINT’you  will  crow  to  love  it'  —  ...well.  »aybe  just  like  it  a  lot." 
'300  PRINT 

7310  INPUT’oress  ENTER*; TI 

7320  GQSUB  40000 

7330  IF  TI  =  *B“  THEN  SOTO  7000 

7340  RETURN 

3000  30303  21000 

3010  PRINT*  nClhanoe)  4  I  insert)* 

3020  PRINT 

8030  PRINT'Now  far  the  aeat  of  this  nalf;  Ne  are  going  to  chance  the  “ 

3040  PRINT'nastv  errors  in  our  trial  statetent.  and  then  Insert  soae* 

3750  PRINI“:orrect  figures.* 

3060  PRINT 

307}  011  =  "FOR  X  =  to7’  :CRINT  Y  : NEXT  2* 

3030  PRINT  Oil 
3090  PRINT 

3100  FRINT'fiboye  is  our  line  (with  the  ’$*’  characters  tissina  -  we  * 

3110  PR!NT“deleted  the*  in  the  nD'.elete)  section).  Let’s  sav  we  want' 

8120  PRINT* to  change  ’NEXT  I"  to  'NEXT  X’  and  ’PRINT  V  to  ’PRINT  V" 

8132  PRINT" In  addition,  we  want  the  value  of  X  to  start  at  I  m  the  FOR" 
9140  FRINPNEXT  Iooo  ::e.  we  want  to  Insert  a  I  ;ust  before  the  to77!" 

3150  PRINT 

2160  iNPOT'or?  :s  ENTER  to  start  our  EDIT;, no*: TI 
3 1  '</  SCSUB  IlOvU 

3130  PRINT"  nCihange;  4  Ilnsert!* 

3190  PRINT 
8200  PRINT  Oil 
3210  PRINT 

3220  FRINT'First  we'll  charge  'PRINT  y*  to  'PRINT  X” 

3230  PRINT 

32*0  RRINT'To  use  the  nClhanqe.  cosaand,  oet  into  the  EDIT  »ode  ar.d  * 
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3230  PRINT'positicn  the  cursor  to  JUST  BEFORE  the  character  ta  tie  changed* 

9260  PRINT’then  press  'C'  and  press  the  nett  character,  then  press  ENTER. ’ 

3270  PRINT*! rv  it  non.  Set  to  EDITor,  SPACE  over  to  just  before  the  Y“ 

8275  PP.INT’and  tvoe  in  ’C’,  then  type  in  an  l  iae  nant  to  snap  Y  aith  ti‘ 

3230  PRINT*and  finally,  press  ENTER  iuse  capitals!* 

3290  PRINT 

3300  PRiNT’ENTER  the  first  coaaand  at  the  bottoa  of  the  nest  line* 

3302  PRINT *10  *31$ 

3304  LINE  INPUT  T$ 

3310  IF  T$  <1  -EDIT  10"  THEN  PR!NT*XRGH6  -  you  have  to  type  EDIT  10  first ‘IPRINT:  GOTO  3300 
3320  PRINT 
3325  I  =  0 
3330  PRINT*  10  *; 

8340  At  =  INKEYS 

8350  IF  AS  =  **  THEN  SOTO  3340 


3355  IF  At  »  *c"  THEM  AS  =  “C* 

3360  IF  AS  =  CHRS (32)  AND  1  <  20  THEN  I  =  l  *  11  PRINT  NIDSlClS.I.l); 
3370  If  AS  *  *C“  AND  I  U  20  THEN  PRINT:PRINT*NRCNG  -  vou  fust  press 


1G0TQ  3340 

’C  i ust  before  the  Y  in  PRINT 


Y*:PRINT*TRY  AGAIN* 1  PRINT:  INPuT'press  ENTER*; TtlPRINTlGOTC  3170 


3330  IF  At  =  *C"  AND  I  «  20  THEN  GOTO  3400 


3390  GOTO  3340 

3400  AS  =  INKEYS 

3410  IF  AS  =  **  THEN  GOTO  3400 

3415  IF  AS  =  V  THEN  At  -  'V 

3420  IF  A$  -  T  THEN  GOTO  9450 

3430  GOTO  8400 


3450  PRINT " X * J 
3460  AS  =  INKEYS 

3430  IF  AS  CHRS!  13)  THEN  SOTO  3460 
3490  PRINT*  1NEXT  2" 


3500  PRINT 

3510  PRINT'Hows  that  for  class1  Reteaber.  xe  protected  you  fro*  estates.  * 
3520  PRINT* The  real  editor  Mill  do  whatever  vou  tel!  it,  even  if  it  is" 

8530  PSINT'xronq1.  But  vou  kne*  that,  didn't  .ou'1* 

3540  PRINT 

355C  INPUT'ENTER  a  if  vou  want  to  do  this  again,  else  ENTER  an  'N’*iTS 
3561'  IF  TS  =  *Y*  THEN  GOTO  3170 
357C  IF  TS  "N“  THEN  GOTO  3550 
3530  GCEUB  21000 

3590  PRINT*  nC(hange)  4  I  insert!" 

3600  PRINT 

8610  PR  I  NT  "As  with  the  other  cotaands,  the  'n?  in  nCihange)  designates' 

3620  PRINT'hox  »anv  characters  are  affected  tv  the  coiwand.  If  vou  want* 
3o30  PRlNT'to  change  10  characters,  then  vou  xould  t  oe  ’IOC  in  the  EDIT” 
3640  PRINT'eode.  and  ;ou  aould  then  HAVE  to  change  the  nest  10  characters." 
3670  PRINT 
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3650  PRlNT'klhat  would  you  tvpe  if  vou  were  in  the  EDIT  lode  and  your  “ 

3j?0  PRINT'cursor  was  just  before  a  block  of  4  characters  that  vou  wanted" 

3700  PRTNT'to  change  to  ’X«X’?  * 

■3710  PRINT 

3720  INPUT "ENTER  your  answer  ncw"iTS 
3730  PRINT 

3740  IF  Tt  <>  MCmr  THEN  PRINT' WRONG  -  you  should  have  typed  4CXXH".  PRINT:  PRINT ‘TRY 
ASAIN':PR!NT: INPUT'press  ENTER" t TSt SOTO  8*70 
3750  PRINT-GREAT'  Not.  you  have  the  idea" 

8740  PRINT 

3770  INPUT 'cress  ENTER" : T $ 

873o  SOSOS  21000 

3790  PRINT"  nCihange!  &  I  Insert)' 

3800  PRINT 

881 0  PRINT'10  FOR  I  *  to 77  .‘PRINT  1  .‘NEXT  2* 

3820  PRINT 

8830  PRINT'Ne  would  change  the  ’2'  to  an  ’V  in  the  saae  wav,  but,  to' 

3340  PRINT'save  tiae.  we'll  envoke  sa*e  eagic.  and  change  it  now  so  we  can- 
3350  FRINT’qet  to  the  I  insert!  coeeand1  READY'"  ::::;ZZZZAAAPPP" 

3340  FRINT*<i<  POOF  There,  it's  changed  now.  Look  below.' 

3370  PRINT 

3280  PR  IN  7“  10  FOR  .<  =  to77  .'PRINT  t  :NEXT  V 
3390  PRINT 

3900  PRINT’How  would  vou  like  to  have  THAT  editor  at  vour  coaaani?’ 

3920  FRINT'Ne'll  now  get  to  the  [insert)  coaaand.  Reaeaber.  we  want  to" 

3930  PRINT* Insert  a  1  just  before  the  ’ to77 ‘ . ' 

3940  PRINT 

3970  INPUT’press  ENTER  for  the  Insert  exsaole'iTS 
3980  GGSUB  21000 

8990  PRINT"  nCihange)  and  I  insert)’ 

9000  PRINT 

9010  OS  s  “FOR  i  =  to77  :  PR  I  NT  1  ‘.NEXT  V 
9020  PRINT* 10  "OS 
9030  PRINT 

9040  PRlNT’To  use  the  I  insert)  coaaand.  vou  first  qet  into  the  EDIT  mode" 

9070  PRINT’and  then  place  the  cursor  to  just  before  the  character  vou  want' 

9080  PRlNT’to  insert  the  data  in  front  of." 

9090  PRINT 

9100  PRINT'In  this  case,  we  get  into  the  EDIT  node,  then* 

9110  PRINT’we  SPACE  o>er  to  just  before  the  * to77'  and  then  we  tvpe  an  "I" 

9120  PRINT  or  I  insert!.  After  the  '!’  coaaand  we  want  to  out  in  a  1." 

9 125  PRINT 'but  we  CGUlD  tvoe  m  as  aanv  characters  we  want 

91*0  FRINT’jntil  we  cress  ENTER.  At  that  tiee,  all  our  changes  are  cade* 

9140  FRIST'and  we  are  returned  to  the  IMMEDIATE  aode." 

9150  PRINT 

9140  INPL'T'o.-ess  ENTER  to  start  the  esaaple’iTS 
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9170  SQSU3  21000 

3130  PSINT’Reaeaoer.  first  tvae  £017  10.  then  space  over  to  just  before’ 

9190  PRINT’the  ’to7?’.  then  t/pe  then  t-.oe  a  1.  then  tvee  ENTER." 

9200  PRINT 
9210  PRINT” 10  ’01 
»::o  ?R!NT 

9230  INPUT-ENTER  the  first  ccaaand*:Tt 

9240  IF  Tt  O  “EDIT  10*  THEN  PRINT  * KRONE  -  vou  »ust  type  EDIT  10  first":PRINT:3QT0  9230 

9250  PRINT 

92a0  PRIST-10 

9265  I  =  0 

9270  A*  =  INKEfl 

9230  IF  AS  =  "  THEN  SOTO  9270 

5 235  IF  At  =  ’l*  THEN  At  =  "I’ 

9290  IF  At  *  CHR$(32>  AND  I  3  THEN  I  =  I  <■  i:RRINT  SIDtlG*.  1,1)1  :S0T0  9270 
9300  IF  At  =  CHR* (13)  AND  I  <  9  THEN  PRINT’.PRINT'URQNS  -  don't  press  ENTER  until  jou  are 
done* :  PRINT :  I.NP'JT’oress  ENTER  to  start  over  * ;  It:  PRINTtGOTO  9170 
9310  IF  At  *  -I-  AND  I  <  8  THEN  Pfi’NTlPRINT’NRGNS  -  don't  type  I  until  just  before  the 
’to??”:  PRINT:  INPUT  “press  ENTER  to  start  again";  Tt’.PRINT.'SOTO  9170 
9320  IF  At  -  ’!“  AND  I  '=3  THEN  GOTO  9400 
9330  SOTO  9270 
94)0  At  =  INKEV’t 

«<10  IF  At  .  T  THEN  GOTO  9400 
9420  PRINT  At! 

3 4 30  At  ^  INhEft 

9440  IF  AS  CHRS !  13)  THEN  EOTO  9430 
9450  PRINT'to'7  : PRINT  1  : NEXT  V 
94t0  PRINT 

3  4  70  INPUT  “ENTER  a  'V  to  do  this  again,  else  ENTER  an  'N’“;7i 
9430  IF  Tl  *  *Y*  THEN  GOTO  3170 
3 490  1=  TS  •  :  ’»*  THEN  GOTO  9470 
9500  6DEUB  21000 

9510  PRINT”  nCIhange.1  3  I  insert:' 

9520  PRINT 

9530  PRINT "Wi tn  scae  of  the  saae  saqic  we  envoi,  eo  before,  we  will  also' 

9540  RRINT'cat  spaces  in  the  proper  elates  of  the  test  line,  (again.’ 

9550  PfilNfvau  would  norsa'Iv  use  .our  r.C  or  i  coaaand  to  fix  uo  tne  line' 

•3aC  'RI.NT’but  1  feel  pretty  aagical  today.  so  I  want  to  do  it.’ 

3 5 70  PRINT 

9530  PRINT’::: IIIAAAAAPPPP  «■  POOF  ;;; . CRAASSSHHHH  ..  tinkle’ 

9590  PRINT'lOF QRSROUND X TiflXASLFUQ)  !U««*sluurrrrrpo . oooops  1  ’ 

9600  PRINT 

9 a  10  PRlNT’Gh  well,  we’ll  leave  it  uo  to  vcu  to  do  in  your  practice’ 

9a2C  PRINT’sessions. ’ 

9a ::  PRINT 

9690  INPUT’press  ENTER’ ;T« 
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9650  6QSUB  40000 

?ieO  IF  T(  =  "fi"  THEN  GOTO  8000 

9670  RETURN 

10000  SQSUB  21000 

10010  PRISPYou  have  finished  the  lesson  and  you  can  non  take  the  test." 
10100  PRINT*!*  vou  wish  to  revie*  oarts  of  the  lesson,  ENTER  an  ’R’" 

10200  PRINT''else,  if  .ou  want  to  continue  to  the  test  ESTER  a  ’C” 

10300  PRINT 

10400  INPUT'ENTER  .our  choice  no*  ;R  or  Cl'lTS 

10500  IF  TJ  -  "R“  THEN  RUN 

SO tOO  IF  T$  ■  ”3’  THEN  GQT3  13000 

I C70C  3CT0  47000 

20990  REN  ff 

20oo0  REN  ♦»  This  subroutine  clears  the  screen  on  any  tersma! 

20995  REN  *t 
21000  FCR  X  =  1  TO  24 
21010  PRINT 
21020  NEXT  i 
21030  RETURN 

3JCO0  PRINT"  LESSON  S' 

30010  FRIST 

30013  PRINT'This  is  the  second  bar*  of  a  two  part  lesson" 

30020  PRINT' It  is  divided  into  the  following  sections." 

30025  PRINT 

30030  PRINT"!)  Introduction  4}  nD'.elete)" 

30035  PRINT *2>  Starting  :E2IT/esit!  5!  Utend  Line!" 

30040  PRINT*!)  nSPACESAR.  nS'.earch;  Si  nC(hange).  ! insert) “ 

32060  PRINT'  3)  TEST" 

IC‘2-90  PRINT 
301LC  RETURN 
40)03  2‘jsU9  21000 

4C0C5  PRINT'Uhtch  do  vou  wish  to  do"" 

40:10  PRINT 

40020  PRINT "A  Continue  on" 

40020  PRINT'S  Review  tms  section  again" 

4CC4S  PRINT 

1003C  INPUT'oress  the  letter  oooosite  the  correct  ans«er  ar.d  oress  ENTER'lTI 
40060  IF  Tl  *  "A"  OR  Tt  -  “S'  THEN  RETURN 
40070  SOTO  40oQl) 

47  )0d  PRINT 
a’ClO  PRINT 

4T'.i20  RRINT'Soing  to  test.  Please  wait  one  sonent.' 

47030  RUN  •TE3T6* 

42)00  RUN  "flENU" 

PRO: (  ,RUN"LE3S2Ni" 


*»e  • 
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1 000 

REN 

** 

2020 

SEN 

LESSON: 

TESTS 

VERSION:  1  AJS  3 

* 

1020 

RE*! 

f* 

AUTHOR  1 

CART  DAN  CREA3AN 

1030 

REN 

*4 

AIR  FORCE 

INSTITUTE  OF  TECHNOLOGY 

1040 

REN 

it 

1030 

PEN 

** 

VARIABLE 

S: 

ICaO 

REN 

*4 

ns  / :  = 

NAMES  ARRAY.  USED  TO  READ  IN 

SEQ- 

1070 

REN 

44 

UENT1AL  NAMES.  AND  TO  WRITE 

OUT 

1080 

REN 

44 

UPDATE  NAMES. 

1090 

REN 

n 

SU)  = 

SCORES  ARRAY  -  USED  TO  READ 

AND 

2  200 

REN 

** 

WRITE  SCORES 

1 1 1 0 

REN 

44 

Oil)  = 

ARRAY  TO  KEEP  TRACK  OF  NUN5E 

R  OF 

1120 

REN 

44 

CORRECT  ANSWERS.  IF  AN  AREA 

f 

1130 

REN 

44 

ELEMENT  LOCALS  1.  T.-iE  ANSWER 

WAS 

1 1 40 

REN 

44 

CORRECT 

1150 

REN 

4* 

1 160 

CLEAR  3 

0O!i 

1170 

SOS' 

iB  i 

210 

1130 

D  ’ 

:a: 

iocs; 

din  9;:o; 

iCDo  DIN  3;<00): 

;:i’)  sfiiSI*  PINAL  TEST  •! lessen  a," 

2220  PRINT 

1230  PRINT'This  test  consists  of  10  ouestions.  vou  sust  get  70  dement" 
1240  PRINT "of  tnea  correct  to  aass.  (that’s  7  right  out  of  toe  10  cues-' 
1250  PRINT 'tians! .  Use  on  1  u  caoitai  letters  in  -.our  answers,  don’t* 

2 260  PSINT*ir.c2jde  estra  siaces  or  letters.’ 

1270  PRINT 

1280  PRINT”  GOOD  LUC!- ' * 

1290  PRINT 


1 " >0  INPCT'oress  ENTER  to  continue"; T$ 

1310  SGSUB  41 n 

1320  PR! NT “im at  is  wrong  with  the  following  statsaent'1" 

1  %>30  PRINT 
1340  SOSUB  4230 
1330  5RINT 

1360  PRINT'A  Nulti  Statement  lines  are  not  allowed" 

1370  PRINT'S  The  assignment  of  values  between  AS  and  PS  are  not  valid." 
1350  PRINT'D  The  strings  were  not  initiaiiced* 

::«0  PRINT'D  Nothing"  ‘ 

1 400  PRINi 
1410  SQS'JB  4 1 3C 
1420  PRINT 


14TC  IF  'S  =  THEN  83*0  247) 

140..  PRlrr’tiRCKS  -  the  cor-ect  answer  is  D* 


J-..Ni ' 


See  oart 
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1460  GOTO  1490 
1470  PRINT "CORRECT* 

1430  311)  =  1 
1490  PRINT 

1500  INPUT'oress  ENTER": Ti 
1510  G0SU3  4110 
1520  G03U3  4130 
1530  PRINT 

1540  PRlNT’klhst  is  the  sutout  of  the  above  orogras?  (you  »av  use  rear  ’ 
1550  PRINT'SASIC  eanual  to  loot  up  terse;" 

15S0  PRINT 

1570  INPUT'ENTEF:  the  output  now  EXACTLY  as  it  would  aooear“:T$ 

1530  PRINT 

1590  IF  TS  =  *H"  THEN  50TQ  1640 

1490  PRINT ’URDUS  -  the  cor-ect  answer  is  H" 

lb  10  PRINT"  If  At  =  Hi1  and  St  =  At,  then  the  left  character* 

IS 20  PRINT*  of  flt  is  an  H,  See  part  l,’ 

1630  GOTO  1SS0 
1440  PRINT'CG'RECT" 

1S50  812)  =  l 
ISaO  PRINT 

Is 70  INP’JT “oress  ENTER"; It 
1*30  G0SU8  4110 

1S90  PP.INT’Nhat  is  wrona  with  the  following  arooraa.” 

1700  PRINT 

ri')  PS  1ST* tO  FOR  <  --  1  to  20* 

1*20  PPINT*:o  Atu;  -  *2HS$i34; "O'CHRt .34? 

i::o  -f.intco  next  r 
:,4u  print 

’.’50  PRINT  *  A  The  arrav  is  r.ct  iisensioned  praaerlv* 

Ps-D  t,RIN'"t  ;ou  cannot  address  a  single  du-ensionea  arrav  with  a  loop" 
1777  PRINT'S  The  should  set  be  enclosed  in  quotes” 

173/  PRINT'D  Nothing* 
cot aj» 

is::’  sflsis  4 is: 

13’ :  PRINT 

132V  Ic  Tt  -  "A*  THEN  GOTO  1340 

1331'  iR!NT“uF;DNS  -  the  answer  is  A  lit  should  be  Dimensioned  t:  20'  * 

134,  PRINT"  See  aart  1.  String  Arrays." 

1350  S2T2  1230 
22s-.'  fSI!»:*C3RRECT* 

:r:  sc-  =  : 

1SSO  P-INT 

:39:  iMPiT'aress  ENTER" 5 Tt 
scsce  4ii: 

1*1'?  ?Ri:r*ah.at  is  the  cutout  of  the  following  irogra*"" 


*NC  * 
aJ. 
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1920  PRINT 
1930  8QSUB  4230 
1940  PRINT '20  St  a  At  +  Bf 
1*50  PRINT 

I960  INPUT “ESTER  >our  answer  EXACTLY  as  it  would  adoesr'lTt 
1970  PRINT 

1930  IF  It  =  ‘Hi  ‘  THEN  GOTO  2030 

1990  ?RIN7*SRCN6  -  the  correct  answer  is  Hi !H* 

2000  PRINT'  If  At  =  Hi  I  and  St  in  line  10  equals  H,  then' 

2010  PRINT"  fit  +  Bt  =  Hi'H.  See  part  1,  String  Arrays. ' 

2020  GOTO  2050 
2030  PRINT'CGSRECT' 

2040  Q (41  =  1 
2; 30  PRINT 

2060  INPOT'sress  ENTER* ; Tt 
2070  SOSUB  4110 

2030  PRINT “What  is  the  output  of  the  following  srograi?* 

2090  PRINT 

2100  PRINT*  10  At  *  "CMRt  1 34 ) '‘SOMEWHERE 1 2HRI 34 ) " : At  =  NIEtlAt.  1.41 : PRINT  At" 
2110  PRINT 

2120  INPUT ’ENTER  .our  answer  EXACTLY  as  it  would  aocear“:Tt 

2121  PRINT 

2140  IF  Tt  =  *SCHE“  THEN  GOTO  2130 

215;  PP.INT’WRCNS  -  the  correct  answer  is  SfflK* 

2lu0  PRINT"  See  vcur  SASIC  aanual.' 

■>•  t.  nr*’'  ~ 

2l3o  FRINT'CORRECT" 

219'J  3!3;  =  1 
221)  PRINT 

2210  INPUT’oress  ENTER “ ;  Tt 
2221  SOSOS  4110 

2230  PRIST’Hhat  is  the  coaaand  vou  would  enter  to  edit  line  milder  30  of" 
2240  PRINT'S  qroqras"' 

2230  PRINT 

2260  INPUT'ENTER  .our  answer  EXACTLY  as  it  would  addear'iTi 
2270  PRINT 

2230  IF  Tt  =  ‘edit  SO'  THEN  GOTO  2330 
2290  IF  Tt  *  'EDIT  50"  THEN  SOTO  2330 
2200  PRINT "WRUNG  -  the  correct  answer  is  EDIT  50' 

22 1:J  PRINT*  See  dart  2.  EDIT* 

.'!•>  GOTO  2330 
2330  PRINT“CCiRRECT“ 

2340  3,6)  =  1 
2130  PRINT 

23oO  INPUT'dress  ENTER"; Tt 
2370  50SOB  4110 


254 
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r 


t 


3330  PRINT'Assuae  vou  are  in  the  EDIT  acde.  You  wish  to  olace  the  “ 

3390  PRINT'curscr  over  the  second  occurance  ot  the  letter  P.  in  vour  line.5 
3400  PRINT 

3410  PRINT'Nhat  is  the  coeaand  you  would  use?' 

3430  PRINT 
3430  PRINT'S  25R* 

3440  PRINT'S  23ft" 

3450  PRINT'D  ERR  * 

2460  PRINT'D  2CR' 

3470  PRINT'S  3  spaceoar  R* 

3430  PRINT 
3490  6QSUB  4130 
3500  PRINT 

2510  IF  T1  =  'A*  THEN  GOTO  3550 

3520  PRINT 'NRQN5  -  the  correct  answer  is  A* 

2-30  PRINT"  See  part  2,  nSiearchf 

3540  SOTO  2570 
2550  PRINT-CORRECT' 

2560  Si7!  =  1 
2570  PRINT 

2580  INPUT'press  ENTER'! T1 
2590  SOSUB  4110 

2600  PSINT'Ass use  your  are  in  the  EDIT  aide" 

2610  PRINT 

2420  PRINT'Nhat  is  the  coeaand  .ou  would  use  to  insert  test  starting" 

2430  PRINT* where  vour  cursor  is  now.' 

2440  PRINT 

2450  INPUT'ENTER  the  coeaand  now";T* 

2440  PRINT 

2470  IF  71  -  •!*  OR  T*  *  V  THEN  GOTO  2710 
2430  PRINT'NRCNG  -  the  correct  answer  is  I' 

2490  PRINT"  See  Part  2,  I  Insert).' 

2700  GOTO  3730 
2710  PRINT'CORRECT’ 

2720  SIS)  =  1 
2730  PRINT 

2740  INPUT'oress  ENTER"! Tt 
2  -'50  uOSOB  4110 

2’40  PRINT 'Assuee  vou  are  in  the  EDIT  aode’ 

2770  PRINT 

2730  PRINT'Nhat  is  the  coeaand  vou  would  use  to  drive  the  cursor  to  the' 
2790  PR  I  NT  "end  at  the  line  vou  are  currently  editing,  '.the  ccteand  is" 

2300  FRINT'one  letter  long," 

2310  PRINT 

2220  INPOT'ENTER  the  coeaand  now": '* 

2330  PPIN" 
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2340  IF  1$  =  T  OR  T!  =  *x“  THEN  SOTO  2830 
2850  PRINT'NRONS  -  the  correct  answer  is  1" 

2840  PRINT*  See  part  2,  K (tend) * 

2870  SOTO  2900 
2380  PRINT-CORRECT* 

2890  3!9)  =  1 
2900  PRINT 

2910  INPUT’oress  ENTER*; Tl 
2920  SCSI'S  4110 

2930  PRINT“Assu«e  vou  have  just  finished  a  course  in  coaouter  assisted” 
2940  PRlNTUnstruction  in  BASIC.  tfhat  should  you  do’* 

2950  PRINT 

2940  PRINT'S  Quit  trving.  no*  that  vou  (-now  how- 

2970  PRINT'B  Practice,  practice,  practice  ....  and  eniov,  enjov.  enjoy” 
2930  PRINT'C  Sell  yourself  as  a  national  treasure” 

2990  PRINT'D  ilrite  a  nastv  letter  to  the  author  of  the  progra** 

3030  PRINT 
3010  QUO!  *  1 
302:  GCSU6  4130 


3030  PRINT 

3040  IF  T*  =  *D”  THEN  PRINT'DON’T  BLARE  HE  ...  I’ll  ONLY  FQU.0NINS  ORDERS 


“IPRINT: INPOT'oress  ENTER*! Ti: 


SOTO  3120 

3050  IF  It  =  *C*  THEN  PRWThit  won’t  help  the  National  Debt  very  ■uch!,:PFINT:INPUT*press  ENTER* !T»: SOTO 
3120 

3040  IF  Tl  =  ‘8*  THEN  PRINT'Don’t  try  to  butter  ae  up,  I  know  you're  into  aasocnisi' ”:PRINT:lNPUT*oress 
ENTER* !Tl: GOTO  3120 

3070  IF  Tl  =  *A”  THEN  PRINT'Cbviouslv  *e  have  failed  to  coaaumcate.  I'*  reporting  vcu  to*:PRINT"the  FBI 
for  tax  evasion  and  »ai!  fraud.”:  PRINT’Trv  A8AIN*:PRINT:iNPUT*oress  ENTER” ;Tl: SOTO  2920 
3030  PRINT*[cngratulations,  vou  are  one  of  the  fe*  who  selected  an  answer” 

3090  PRINT“that  wasn’t  listed.  Here  vou  ever  an  extra  for  the  HUPPET  SHQN?” 

3100  '■PINT 

3110  INPOT'oress  ENTER*! Tl 
3120  60303  411, 

3130  PR!NT:‘Ct*icustv.  vou  get  automatic  credit  for  the  last  question.” 

3140  PRINT 

3i5v  PRiNT'It  was  nice  doing  business  with  vou.  So  long'” 

3160  PRINT 

3170  INPUT “press  ENTER*;!! 

T180  SQSU8  4110 
T 1 9C  FOR  t  =  1  TC  10 
3200  ?  =  Y*0U! 


NETT  5 

FRINT'vou  ha»e  finished  the  test,  out  of  10  possible  correct  answers 
PRINT'vcu  scored  W 


5CP»,T 

.  I*.  *  t»  i 


FRINT'/GU  HAVE  PASSED 


*****  Li sti na  of  Progras  ’ TEST6'  ***** 


07/10/33  -  04:48 


3240  SOSO'S  3920 

3270  IF  if  >  6  THEN  SOTO  3350 

3230  PRINT "YOU  HAVE  NOT  RECEIVED  ENOUGH  POINTS  TO  PASS" 
3290  PRINT 

3300  FRINT-YGU  SHOULD  RE TALE  LESSON  41  * 

3310  PRINT 

3320  PRINT*'! ou  mil  tie  returned  tc  the  Sena. " 

3330  PRINT 
3340  SOTO  4230 


-**C,N 

PRINT 

3360 

PRINT 'Do 

vou  4ar t  vour 

score  recorded  on  a 

oeraanent  file’" 

V7.3 

PRINT 

3230 

PRINT'' A 

YES* 

3390 

PRIHT‘3 

NO* 

j  4  0‘.i 

PRINT 

3*10 

INPUT  "Nr,: 

ICh'tTt 

v4.J 

IP  T*  =  ' 

■8"  THEN  GOTO  3 

’20 

3430 

G3SUB  41 

10 

3440 

PRINTED 

record  vour  jc 

ore.  «e  jest  ocen  a 

file  and  out  /cur  neae* 

345v 

PRINT*;--. 

;t.  Tr.eretore 

.  suransmolv.  «e 

need  vour  rase.  If  /ou'" 

34,-0 

*  S’  3  T  '*  ”  a  i 

:e  ii  not  umoe 

e  asa.-iO  tne  student 

s  IjkeK  to  taie  tv.s  test 

747;: 

esse  contact 

.ur  test  son; tor  for 

an  ;der.t;f /’.no  word  that' 

7431 

PRINT  '*:I 

i.  iat-c  <Cv  w*.  ; 

oue.  Then  enter  that  word  selcw." 

74-:  :r:nt 

v.  \ 


FRlNT'If  vC*.  "a,e  alrsad.  e* tired  a  score  ore.; oust 
:P3NTV.:e*  tr.e  ;»e  naie  ,cu  used  tefore.  use  a'. 


. «  J  . 

T  C  #  A 

..1. 

.  wJO 

ZZt\ 

-c  ~ 


:6w 


INF'J'r‘,ENTE:  .:j.r  *G.ru  najre 

norj(»!”  ' 

t  =  3 

IF  E2F.1'  "HEN  3033  3i20 
:  = 

INRiiTii.Trt  v. 

::%?jt#i.2  < 

IF  Nt . J !  S  :$  'HEN  SOTO  T30» 

L3  w  ■  j  »  w  C '  i 

ILjSE 
l  +  [ 

Nt  l!  -  'I 

ifz'i'j'. 'SCOPE: ' 

FOR  4  -  ,  T3 
PR IhTli .ns  ii*: 

PRINT#:. S' 4, 

Nt''  * 
j-’.N’ 


ic*';'t 


APPENDIX  C 

OUTPUT  OF  THE  CAI  PROGRAM  LIBRARY 


259 


TABLE  OF  CONTENTS 


MENU  .  .  . 

LESSON  ONE 
LESSON  TWO 
LESSON  THREE 
LESSON  FOUR 
LESSON  FIVE 
LESSON  SIX  . 


07/11/33  *  00 


*****  Listing  at  Proqrsi  ' LESSCNi /TXT'  ***** 


TRSDQS  Ready 

SASIC 

SASIC  01 . 50. 30  tor  TRSDQS  Version  i 

Copyright  '.c?  1983  8v  Iticresoft.  licensed  to  Tandy  Carooratior.. 
All  rignts  reserved. 


Readv 

RU'SENU' 


COMPUTER  ASSISTED  INSTRUCTION  IN  SASIC 

bvl  CdDtam  Dan  Creaoan 

Air  Force  Institute  at  Technology 

This  is  the  ienu  tar  coiputer  assisted  instruction 
m  BASIC.  It  is  aeant  to  be  used  with  a  SASIC  aanual  or  «tn 
an  experienced  arograaaer  available  tor  consultation. 


I*  vot  wish  to  §i.-e  oe  ‘eeaback.  or  get  infer  sat  ion  about 
this  orogra*.  olease  contact  ?e  at  oRIFFISS  AFB.  NY.  I  will  be 
in  the  Aircaft  Saint sr.ance  area  after  3CT  33. 

oress  ENTS':  to  continue'’ 


HE  Nil  CHOICES 


Select  the  orogra*  vea  *ish  to  run  fro*  the  list  teio* 
and  cress  the  ouster  that  is  nest  to  vour  selection. 
Then  oress  ENTER. 


.ESSjN  cne 

LESSON  TWO 
TEST  TNG 
LESSON  THR! 
TEST  THREE 


7.  LESSON  FOUR 
3.  TEST  FOUR 

9.  LESSON  FIVE 

10.  TEST  FIVE 

11.  LESSON  SIX 
II.  TEST  SIX 


WHICH  NL“BER  DC  <00  WANT 


.31 


*****  Listing  at  Prograa  ’LESSON!. 'TXT’  ***** 


07 


LESSON:  SASIC  IA  VERSION:  1  AUGUST  33 

TINE  REQUIRED  TO  COMPLETE  LESSON:  About  One  Hour 


AUTHOR:  Capt  Danny  J.  Creagan 

Air  Force  Institute  of  Technology 

OBJECTIVE:  To  introduce  tne  student  to  Microsoft 

SASIC  and  the  fundaeentais  of  a  saall  cosouter 

MATERIALS  RES’D:  SASIC  reference  aanual 


press  the  ENTER  Lev  to  continue? 


LESSON  1 

'his  is  the  *irst  oart  of  a  two  oart  lesson 
It  is  divided  into  the  following  sections. 


Introduction 

C  \ 

Statements  i  P'ocraa s 

Hardware 

b) 

Print  Stateeent 

Software 

■?* 

End  A  Stop  Statesent 

Ser.erai  Intonation 

8! 

Isaediate  Mode.  N£w 
LIST.  DELETE 

taking  this  oart  in 

its 

entirety. 

S  I  wish  to  review  selected  areas. 

C  I  want  to  go  to  the  second  cart. 

D  I  want  to  return  to  the  Menu, 

Press  either  caoital  A.  S,  C.  or  C  and  then  press  ENTER"  A 


Introduction 


07/11/3' 


*****  listing  of  Pros  ran  '  LESSON! /TXT '  ***** 


Throughout  all  /our  lessons,  you  should  have  your  BASIC  sanual 
handt.  If  ,ot»  find  yourself  stusoed  bv  a  Question,  you  should 
LOCK  UP  THE  ANSiiER  IN  THE  BOOK.  If  you  can't  find  it  after 
an  honest  attesot.  then  take  a  quess  and  then  qo  on.  fou  mil 
ha>?  an  opaortumtv  to  review  each  section  again. 

Beginning  with  this  lesson,  vou  ni!1  have  hoiework  assigned 
at  the  end  of  each  test.  If  vou  do  the  hoaeuork.  vou  will 
learn  sore.  and.  «ith  the  techniques  *ou  learn,  you  will  find 
that  <au  can  tackle  ssall  oroqrasamq  joss  as  soon  as  you 
cceolete  the  course. 

oress  ENTER’ 


Introduction 


Throughout  the  next  siv  lessons  /ou  will  be  learning 
about  ccaouters  and  what  they  do.  Although  the  course  is 
titled  ’.oeouter  Assisted  Instruction  in  BASIC,  you  will 
also  need  to  learn  the  teremolcgv  of  coaouters,  not  just 
the  BASIE  orooraasinq  lanquaqe.  This  first  lesson  will 
start  with  so*e  fundaaental  ideas,  and  ex oand  the*  as 
we  gc  along. 

*e  use  coaouters  to  ;r ocess  BATA  and  give  us  answers  to  our 
orobieas.  To  crccess  this  SATA,  we  rust  ccasunicate  with  the 
ccsouter  using  two  basic  ccacuter  coeooner.ts.  Those  con- 
are  called:  HARDWARE  AMD  SOFTWARE. 

oress  ENTER'1 


4hich  do  /ou  wish  to  do 
A  Continue  on 

5  Re.iew  this  section  acain 

oress  the  letter  oaoosite  your  choice  and  oress  ENTER"1  A 
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me*  Listing  of  Prograa  ’ LE5SGN 1 ; T XT '  ***♦♦ 


HARDWARE 


Hardware  is  the  tera  used  to  oescribe  the  electrical  and 
sechanical  aspects  of  a  coaouter.  Hardware  includes  the 
oarts  you  can  ohvsicallv  touch  on,  or  in,  your  coeouter. 

One  aa.mr  aiece  of  hardware  is  the  central  grocessmq  unit 
'CFL'i.  The  CPU  is  the  coacuter's  central  electronic  brain. 

It  oerfgrss  all  of  the  data  operations  and  contains  a 
storage  area  called  rtEftORV  which  is  used  for  short  ters 
data  retention  during  oaerations. 

press  ENT£R  to  continue” 


HARDWARE  econt) 

PERIPHERAL  DEVICES  are  additional  units  of  eauioeent 
that  suBoert  the  coeouter.  PERIPHERAL  DEVICES  are  used  tor 
lonq-tert  or  neraanent  storage,  and  they  also  let 
you  coaaumcate  with  the  coeouter. 

The  coeouter  'tails'  to  ,ou  by  using  oer inner al 
hardware  units  called  OUTPUT  devices.  These  can  oe 
’wttllWLS.  or  LINE  PRINTERS,  or  TAPES,  or  DISKS. 

you  'tall,'  to  the  coeouter  through  units  called  INPUT  device 

cress  ENTER  to  continue" 


HARDWARE  cent) 

INPUT  DEVICES  aav  also  be  teramals.  or  taoe.  or  casks. 

•n.  ir-  soae  soecial  cases,  or  inters  that  have  he  .boards 
that  are  used  as  teramals. 

INPUT  an;  or  OUTPUT  DEVISES  or evade  a  ohvsical  coaeunication 


**m  Listing  of  Praara:i  ‘ LESS0N1  /TXT ’  mtt 


07/! 


! int  between  >ou  and  the  coaputer. 

Whenever  voa  coaaunicate.  there  eust  be  soiethmc  that 
trar.storss  »car  physical  reaues.  .  !kev  strokes!  into 
electrical  DATA  that  the  CPU  understands,  host  of  that 
mo  is  done  bv  SOFTWARE 

cress  ENTER  to  continue" 


here  is  a  little  aui:  -  answer  in  capita!  letters 
and  do  not  include  estra  spaces  or  words 

What  cosponent  (HAR0MP.E  or  SOFTWARE'  is  aainlv 
used  to  transfora  vaur  moots  into  a  fora  the  CPU  can 
understand" 

WRONG  -  the  correct  answer  is  SOFTWARE 
cress  ENTER  to  continue1' 


what  do  the  letters  CPU  stano  for'  CENTRAL  PROCESSING  UNIT 
CORRECT  -  now  we  are  learning  sooethinq' 
cress  ENTER  to  .ontinue" 


which  of  the  foUonir.q  can  fie  considered  an  OUTPUT  device" 

A  Te-imals 
E  Tapes 
C  Disks 


C  ALL  ct  the  above 

which  letter  do  vou  semct" 

CCRREC" 


C45 


D 


*tm  Listing  of  Prcgras  'LESSGfU/TXT'  ffftf 


07/11/83  -  50:04:30 


ore ss  ENTER  to  continue1 


Hi!  1C.1!  30  vDU  H!Sh  to  do 
4  Continue  on 

3  Review  this  section  again 

cress  the  letter  cooosite  vou r  choice  and  orese  ENTER-'  A 


SOFTWARE 

Software  is  a  collection  of  written  rules  that  control 
the  coiouter.  Software  can  he  divided  into  twG 
t.ses:  USER  PROGRAMS  and  OPERATING  St STEMS. 

A  LEER  RRGSRAN  is  the  instructions  that  vou  write  to 

tie  sachme  that  tel!  it  where  .our  data  is.  what  to  :o  with 

it.  and  when  to  do  it. 


The  OPERATING  SYSTEM  is  the  software  that  is  the  conscious¬ 
ness  of  the  cosouter. 


cress  ENTER  to  continue' 


SOFTWARE  .cant ; 

'he  OPERATING  SYSTEM  suoervises  the  various  capabilities 
of  the  coaouter  and  cannot  be  altered  bv  the  user. 

It  OVERSEES  the  operation,  and  senses  when  a  keystroke 
is  »aoe.  a  button  15  pushed,  or  a  request  aade. 

One  cart  of  the  oceratmg  svstes  is  called  the  LANGUAGE 
PROCESSOR.  The  LANGUAGE  PROCESSOR  translates  the  instructions 
of  a  user-written  oroqra#  into  electronic  instruc¬ 
tions  that  the  cosouter  can  understand. 


**«*  Listing  at  Prcgra*  LESSONl/TlT’  »**♦* 


07/11/33  -  00104 


are  descr 1  bed  bv  the  kind  at  computer  language  vou  use. 
press  ENTER  to  continue'' 


SQFTiARE  !  contl 

Because  user-written  prograas  and  operating  svsteas  are 
both  designed  bv  huaans.  it  is  possible  to  develop  a  huaan 
oriented  language  that  both  can  use.  That  is.  a  language 
that  lets  you  write  crograas  using  easily  aastered  rules  ana 
conventions  that  are  also  understood  by  the  operating 
svste*.  Gnce  we  get  the  operating  svstea  to  understand 
the  instruction,  it  can  sake  the  coanuter  do  its  job. 


P'sss  ENTER  to  continue'1 


It's  :use  rcr  another  aui:' 

Eeaeatsr,  use  on.lv  capital  letters  and  don't  add  unnecessary 
spaces  or  words. 

press  ENTER  to  continue"' 


Is  a  peripheral,  such  as  a  line  ormter,  hardware  or  software' 

A  Hardware 
9  Software 


Choose  A  or  6  -  cress  the  letter  and  then  press  ENTER 

Hhi :h  letter'  A 

CuRRECI 


C67 


*****  Listing  of  Progra*  ’LESS0N1/TIT’  ««♦ 


07/11/a; 


00 


press  ENTER  to  continue? 


An  ooeratinq  svstei  translates  user-written  cede  into  a 
for*  that  the  ooeratar  can  understand.  1TRUE  or 
CAISE'!! 

A  True 
8  False 

Choose  the  letter  corresoondinq  to  the  correct  answer 

which  letter  (A  or  B>?  S 

You  are  RI3HT 

press  ENTER  to  continue11 


Witch  do  »ou  wish  to  do 
A  Continue  on 

E  Review  this  section  again 

oress  the  letter  oooosite  vour  choice  and  cress  ENTER'1  A 


SeneraS  Inforaation 

There  have  been  sanv  programing  languages  developed  over  the 
years.  Nanv  « ere  designed  to  solve  specific  crcoleas  and  they 
required  a  good  deal  of  previous  knowledge  about  coecuters. 


BASIC,  which  stands  for  Beginner's  All-ourpose  Svebolic 
Instruction  Cade,  is  a  language  that  requires  onlv  a 
.tedsrate  under  standi  r  g  of  how  a  coeouter  works. 


B-S I C  was  developed  at  Darteouth  College  for  use  bv  students 


C68 


*****  Listina  of  Prcaram  'IESSQN1/T»T‘  ***** 


07/11/33  -  00:04 


who  acre  unfamiliar  tilth  coaouters  and  needed  a  language 
related  to  everyday  soeech. 

press  ENTER  to  continue'1 


Seneral  Information  (cent) 

SASIC  is  easier  to  Raster  than  Host  other  languages,  be¬ 
cause  its  instructions  are  very  similar  to  English  gra**ar. 

Hc«e>er,  BASIC  is  not  English.  A  computer  »ust  be  instruc- 
ed  :n  precise  tens,  with  no  ambiguity.  English  has  many 
s*nonv«ous  and  imprecise  teres. 


press  ENTER  -or  mere" 


Seneral  information  ( cent/ 

To  further  explain  the  difference  between  BASIC  and 
English,  if  you  describe  how  to  average  numbers  in  English 
»0u  light  do  it  this  way.  (assuMing  the  numbers  beiow) 

Add  19,  30.  5C  100.  and  Si.  Divide  bv  5. 
write  the  duotient  as  the  answer. 

A  computer  programmed  in  BASIC  couldn’t  understand  these 
instructions:  however,  the  instructions  that  BASIC  would 
use  are  very  sisilar  to  these.  BASIC  fust  distills  down 
the  coiaands  and  eliminates  all  the  aaoiguitv. 

This  average  can  be  stated  in  one  instruction  called  PRINT. 

cress  ENTER  for  an  example  of  the  PRINT  instruction7 


Seneral  information  icont) 
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*****  Listing  of  Prograa  ' LES3QN1 / TXT ’  ***** 


07/11/33 


The  PRINT  stateaent  works  like  this,  to  find  the  average 
of  five  minders  and  wrtte  the  result  on  vour  tersinal. 
von  can  use  the  following  BASIC  statesent: 

PRINT  ! 19+90*50*100*661/5 

In  this  exasple,  the  BASIC  verb  PRINT  tells  the  ooerating 
syste*  to  write  the  instruction  following  it  to  the  tersinal. 
The  data,  or  recisients  of  the  verb  PRINT,  are  the  nuabers 
ano  svabols  to  the  right  of  the  PRINT  word.  The  svsbols 
are  used  the  sase  wav  that  you  use  .he*  on  a  calculator. 


press  ENTER  to  continue  with  General  Inforsation? 


SASIC  is  used  (h  nearly  every  sicro  and  samfrase  cceputer. 

There  are  sany  'dialects’  of  BASIC  and  thev  are  not  all 
cosoatible  with  each  other.  For  instance,  a  SASIC  progras 
written  in  Honevwell  SASIC  or  Applesoft  BASIC  will  not 
-un  on  vour  cosouter  unless  it  is  sodified. 

The  nase  ;or  the  SASIC  on  ydur  coaouter  is  Nicroscft  BASIC. 
Nicrosoft  BASIC  is  supported  bv  acre  aicrocoaputers  than 
an<  other  dialect.  It  is  extreaeiv  powerful,  and  aatches 
the  coaputng  capability  of  sost  other  languages.  It 
is  slower  than  soae,  but  the  slowness  is  relative  '.sost 
calculations  onlv  take  ullisecondsi. 

press  ENTER" 


tihv  is  SASIC  a  good  aenerai  arograaiing  language  to  learn" 

A  It  can  be  used  bv  aost  students  and  orograaaers 
3  >ou  don't  reed  to  know  a  lot  about  coaouters  to  use  it 
C  It  is  available  on  sost  coaouters 
D  ALl  of  the  abc»e 
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*****  Listing  of  Prograa  ’LESSQN1/TXT’  ***** 


07/11/83  -  00:04:30 


Press  the  letter  corresponding  to  the  correct  answer 
Se  sure  to  enter  only  caoital  letters 

Nhat  is  vour  selection"*  0 

CORRECT 

Cress  ENTER  to  continue’ 


Which  do  you  wish  to  do 
A  Continue  on 

8  Review  this  section  again 

press  the  letter  opposite  vour  choice  and  press  ENTER?  A 


STATEMENTS  and  PRQ6SAHS 

The  instruction  that  *e  saw  in  the  orevious  exaaple  is  a 
one  line  cosaand  to  the  coecuter.  When  we  cosbine  several 
stateaer.ts,  we  get  a  acre  useful  COMPUTER  PROGRAM. 

The  COMPUTER  PROGRAM  acts  as  a  series  of  directions  for 
the  aachine  to  follow. 

The  state«ent5  that  aaie  uo  the  oropraa  are  expressed  as 
BASIC  verbs  which  denote  an  action  to  he  taken.  THEY 
APPEAR  SEfiUENTIALLr  ON  NUMBERED  PROGRAM  LINES,  usually 
along  with  the  data  that  is  to  be  acted  upon. 

press  ENTER  to  continue  with  STATEMENTS  t  PROGRAMS’ 


Each  BASIC  stateaent  consists  of  a  specific  arrangetent  of 
eleaents.  These  eleaents  are  shown  below,  in  the  order 
thev  MUST  aoaear  m  an  actual  orogra*  line 


*****  Listing  of  Proofs*  ‘LESSONi/IXT*  ***** 


07/11/93  -  00:04 


STATEMENT  (or  LINE)  NUMBER 

-  indicates  the  processing  seouence  of  the  state*ents 

-  always  in  ascending  order. 

SASIC  KCRD 

-  soecifies  the  coaputer  operation  to  de  perfor*ed 
PARAMETERS 

-  variables,  or  expressions, 

used  to  direct  the  operation  perforaed 
b/  the  state*ent. 

press  ENTER  to  continue? 


STATEMENTS  and  PROGRAMS  icont) 

Every  statement  *ust  have  a  line  nu*ber  and  these  nu*bers  range 
fro#  0  to  65529  in  acst  *icroco*puters  that  support 
Microsoft  BASIC.  (Microsoft  is  the  cospanv  that  owns 
the  copyright  to  the  particular  oialect  of  BASIC  that 
runs  on  this  sachmel.  it  is  advisable  to  write  erograa 
lines  m  increments  of  10  to  allow  vou  to  insert  additional 
lines  without  having  to  renuaber  everv  state»ent  line. 

The  stateaents  are  executed  in  ascending  nuaerical  order, 
not  in  the  oroer  thev  were  entered. 

(lock  ub  the  P.ENUM.  or  NAME  ccaaand  in  vour  aanual  for  ao>e! 
inforaation) 

press  ENTER  to  continue'1 


STATEMENTS  and  PROGRAMS  (cent! 

The  last  stateaent  of  the  prograa  should  be  the  END  stateient. 
This  indicates  that  the  erograa  is  coaolete.  IT  IS  NOT 
NECESSARY,  but  it  is  a  good  practice  to  always  put  it  m. 

To  get  the  orograt  to  execute  vou  use  the  RUN  coasand. 

Now  for  a  few  Questions  to  see  how  vou  are  doing. 


Dress  ENTER  lor  the  ouestions 


*****  Listing  of  Progra*  ' LESS0N1 /TXT ’  ***** 


07/11/83  -  00:04130 


"I 


A  computer  progra*  is  a  series  of 

A  Verbs 
8  Words 
C  Statetents 
D  Synonves 


Tvpe  m  the  letter  opposite  the  correct  answer  and  press  ENTER?  C 
CORRECT 

oress  ENTER  tv  continue7 


Which  of  the  fo! lotting  is  incorrect 7 

A  A  SASIC  ward  is  a  word  that  a  SASIC  processor  understands 
B  A  stateient  can  have  no  tore  than  two  line  embers 
C  Data  are  the  recioients  of  the  action  of  BASIC  verbs 
0  Line  timbers  are  written  sequentially. 

Press  the  letter  that  is  beside  the  correct  answer 
and  then  o^ess  ENTER 

What  is  your  choice”  6 


CORRECT  -  wav  to  go1 


press  ENTER  for  the  next  Question? 


Is  350000  a  valid  statesent  nuaber  in  Nicrosoft  BASIC7 

N  Ho 
V  Yes 

oress  the  letter  beside  the  correct  answer  and  tnen  oress  ENTER”  1 


*****  Listing  of  Program  'LESSON!/ TXT’  ***** 


07/11/83  -  00:04:30 


4RCN6  -  350000  is  too  big.  Remember.  vou  can  only  go  to  5552? 
press  ENTER’ 


dhich  do  you  wish  to  do 
ft  Continue  on 

B  Review  this  section  again 

press  the  letter  opposite  your  choice  and  press  ENTER?  A 


PRINT  STATEMENT 

The  BASIC  word  PRINT  is  a  command  that  tells  the  computer 
to  outout  the  data  that  follows  to  the  computer  terminal 


This  data  can  be  numbers.  variables,  or  strings. 

(strings  combinations  of  words  or  numbers  that  are 
to  be  printed  without  having  any  calculations  done  to  thee; 


press  ENTER" 


/ou  can  control  the  outout  caused  bv  the  print  statement 
m  two  wavs.  If  vou  just  want  what  you  ENTER  printed 
without  anv  calculations  done  to  it.  then  vou  enclose  the 
data  after  the  PRINT  command  in  auotation  marts. 

For  E-amole: 

!0  PRINT  "So  For  It"* 

20  END 
RUN 


i 


274 


r.-'-’sur^ 


*****  Listing  cf  Prograe  'LESS0N1/TXT’  ***** 

In  BASIC,  if  you  type  this  in  as  shotrn,  you  get  this  result: 
So  For  It' 
press  ENTER? 


PRINT  tcont > 


Another  exaaple  Mould  be: 

10  PRINT  "This  is  easy* 

20  END 
RUN 

Nhich  Mould  result  in: 

’his  is  easy 

Notice  that  nothing  is  changed  ov  the  coaouter.  the  Mords 
that  Mere  coaaanded  to  be  output  Mere  printed  exactly  as  shCMn, 

Dress  ENTER  ;or  the  second  exaapie"' 


3RINT  -cent: 

The  second  moy  the  orint  statesent  is  used  to  control  outout 
is  br  NDT  enclosing  the  data  in  quotation  aarks.  The  data  is 
then  read  hv  the  coaputer  and  the  coeouter  tries  to  evaluate 
Mhat  the  data  aeans  in  aatneeatical  teres.  If  >ou  have  entered 
data  that  cannot  be  satheaaticallv  aamoulated.  then  you 
get  an  ERROR  aessage. 


07/11/33  -  00 


press  ENTER 


*****  Listing  of  Prograa  ' LESS0N1  / TXT '  erne 


07/11/83 


Hers  is  an  exaaole  ct  data  in  quotes,  and  data  not  in  Quotes 
ar.d  what  the  cutout  would  look  like: 


10  PRINT  ’1+1* 
20  PRINT  I+l 
RLN 

Results  in: 

1*1 

cress  ENTER'1 


PRINT  (cant) 


10  PRINT  "1*-!" 
20  PRINT  1+1 


l+l 


Note  that  the  stateaent  that  had  quotes  was  reormted  exactly 
as  it  was  tvoed  in.  without  the  Quotes,  while  the  second 
stateaent  was  coaouted  satheaaticallv  and  a  result  was  given. 
The  part  of  the  frst  stateaent  within  Quotes  is  called 
a  STRING  -  '.reaeaher'1) 

cress  ENTER' 


PRINT  (cont) 


’he  feraat  c*  the  cutout  of  PRINT  can  be  controlled  using 
cosaas.  cor  E.-.aaole: 


*»♦♦♦  Listing  of  Proorat  ' LESSON  1/7 XT’  m»t 


07/11/83  -  00:04:30 


10  PRHf  •fl*.6+2.*S*.7+l 

20  END 

RUN 


Results  in: 


ft  3  3  8 


oress  ENTER? 


A  8  8  3 

Notice  how  the  cossas  have  caused  the  terse  of  the 
statesent  to  he  soared  across  the  screen.  The  soaces 
are  sisilar  to  TABS  on  a  tvoeanter.  hoaever.  the  cossa  reacts 
differently  on  different  tersmals.  See  vour  SASIC  sanual 
or  ask  vour  5/Ste*  operator  how  they  react  on  vour  aachine. 

iccasas  usually  cause  3  soaces  between  terss! 

oress  ENTER" 


PRINT  (cent) 

The  PRINT  statesent  also  allows  you  to  cutout  blank  lines. 
You  on. it  blank  lines  bv  tvomg  in  the  line  nuaber  and  then 
a  PRINT  stateient  without  an  arguient.  For  exancle: 

10  PRINT  ‘Now  is  the  tue  to  ski D* 

20  PRINT 

30  PRINT  'a  line. - 
RUN 


oress  ENTER  for  results'1 
Now  is  the  tue  to  ski o 


«m  Listing  at  Progra®  ’ LESSQN1/TXT’  »m* 


07/11/33  -  00:04:30 


a  line 

cress  ENTER'' 


22*10 


Which  at  the  hollowing  stateaents  would  cause  the  above  cutout-1 
A  10  PRINT  ,12*10‘ 

1  20  PRINT  12*10 

C  15  PRINT  “TWELVE  *  TEN’ 

2  25  PRINT  12*10 

ar-ss  the  letter  that  is  beside  the  correct  choice  and  ENTER’  A 
CORRECT  -  that  was  a  kev  concept,  congratulations' 
cress  ENTER’ 


Write  the  statesent  that  would  cause  a  blank  line  to  be  printed 
Use  10  ‘or  the  line  oyster  and  leave  one  blank  soace  between 
terns. 

What  :s  vcur  answer’  10  PRINT 
CORRECT 


press  ENTER  to  continue’ 


Which  co  vou  wish  to  do 


1  Continue  on 

E  6e.ie«  this  section  a:3in 
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INST  OF  TECH  WRIGHT-PATTERSON  AFB  OH  SCHOOL  OF  SYSTEMS  V 
AND  LOGISTICS  D  d  CREAGAN  20  SEP  83  AF I T -LSSR-29-83 

F/G  9/2 


UNCLASSIFIED 


NL 


1 


***«»  Ustinq  of  Progra*  ’LES3QNI/TXT’  *♦♦♦* 


press  the  letter  opposite  vour  choice  am)  press  ENTER'  A 


END  i  STOP 

The  END  statesent  ie  the  last  statesent  in  a  progra*. 

It  notifies  the  coaouter  wh.en  the  progra*  is  done. 

Because  it  is  the  last  stateaent.  it  has  the  highest 
line  nuaber.  The  END  stateaent  is  not  necessary  in  Microsoft 
SASIC .  but  *anv  oroorasaers  use  it  anvwav.  They  believe  a 
orcara*  is  oore  understandable  and  easier  to  ‘track’  bv 
another  oroaraaaer  if  there  is  only  ONE  entrv  and  ONE  exit  in 


cress  ENTER  for  the  rest  of  END  4  STOP-1 


The  STOP  statesent  interrupts  execution  of  the  precra*. 

It  is  primarily  used  as  a  debugging  aid.  If  you  want 
to  find  the  status  of  a  variable  at  a  certain  ooint  in  a 
croqraa,  ;ou  insert  a  STOP  statesent.  For  exaeolel 

JA  •  -  "*J 

20  V  =  x/5 
30  STOP 
40  t  =  )♦: 

Ihen  this  oroara*  is  RUN  it  Hill  STOP  execution  at  line  30 
Then  you  *a>  ask  the  cosouter  to  tell  you  the  status  of  an. 
of  the  variables  X  or  I.  You  can  do  this  using  the  INNEDInTE 
sode  (explained  next  section).  3:»plv  tvpe  in  PRINT  X.!. 

oress  ENTER” 


If  /ou  «a.nt  to  start  the  orograe  back  ud  froe  where  vcu 
STOPed  it.  then  type  in  CONT  iCCNTmue!  and  oress  ENTER 
cor  exaaole: 


07/11/83  -  00:04)30 


♦*m 


istno  of  Prooraa  ' LESSONi /TXT’  ***** 


07/11/83  -  00104 


1)  <  =  12+-5 
20  r  =  3*2 
30  STOP 
40  PRINT  i*Y 
PON 


Results  m: 
BREAK  !N  20 


til t  ENTER  for  the  rest" 


BREAK,  in  30 


Non.  Dy  typing  in  CDNT.  tne  prograa  mil  resuie  execution 
For  exaecle: 

CO.NT 


Notice  how  the  last  line  (which  was  PRINT  <*Y)  was  executed' 
It  was  just  as  if  the  STOP  statesent  had  never  teen  there 
As  vou  progress  in  BASIC,  vou  will  find  *anv  uses  for  this 
statesent. 

press  ENTER  to  continue'1 


Which  do  vou  wish  to  do 
A  Continue  on 

B  Review  this  section  again 


press  the  letter  opposite  vour  choice  and  cress  ENTERS  A 


*****  listing  of  Proqra*  '  LES3DN1/TXT’  ***** 


07/11/33  -  00104 


IMMEDIATE  NODE 

Microsoft  SASIC  has  a  tcde  called  IMMEDIATE.  .  .  . 

Hher.ever  vou  have  lepleeented  BASIC  in  vour  syste*.  usually  dv 
typing  m  the  word  BASIC,  (consult  vour  BASIC  aanual  or  vour 
s«ste#  ooerator  for  saecific  directions  on  vour  particular 
aacfurse)  vou  will  be  in  the  IMMEDIATE  node.  In  this 
node,  vou  «av  execute  iany  BASIC  statenents  without  having  to 
tvoe  in  line  nunbers  or  the  coaeand  RUN.  Far  exanole: 

PRINT  ’JUST  WHEN  !  THOUGHT  1  HAD  THE  HANG  OF  IT’ 

This  line  will  ormt  the  statenent  within  the  ouotes  as  soon 
as  the  ENTER  kev  is  pressed. 

cress  ENTER  to  continue'1 


IMMEDIATE  (cant) 

Another  exaaole  would  oe: 

PRINT  93*10*40 
Which  would  -esult  in'. 

:43 

As  -ou  can  see.  the  cosouter  will  do  the  calculations  .iust 
as  if  it  were  coananded  to  do  it  in  the  aortal  nay. 


cress  ENTER'' 


IMMEDIATE  (cont) 

The  tiqgest  disadvantage  of  the  IMMEDIATE  node  is  that  the  data 
is  not  stored  in  »e*orv,  and  cannot  be  reoeated  again. 

It  is  lest  after  the  initial  display,  whereas  the  prograes  we 
looked  at  before  can  be  run  over  and  over  again  bv  eerelv 


191 


*****  Listing  of  Progras  ’LES50.N1/TXT’  ***** 


07/11/23  -  00104:30 


tvoing  in  the  »ord  RUN.  Also,  the  ’.Mediate  »ode  is  liiited  to 
one  line  of  statesents  at  a  tiae. 


oress  ENTER'1 


NEK  Statement 

If  vou  want  to  clean  out  the  temporary  sesorv  in  BASIC,  all 
vou  have  to  do  is  tvpe  in  the  word  NEW.  BUT  BE  CAREFUL  WITH 
THIS  CONilANO.  It  will  erase  any  progra*  vou  have  resident. 


Let’s  sav  vou’ve  Been  practicing  the  cossands  vgu  have  learned 
so  far.  and  vou  have  out  m  a  lot  of  line  nuisers  and  RUN  the*. 
But  now  you  want  to  start  over,  /au  can  erase  the  sess  with 
the  connand  NEK. 

cress  ENTER7 


LIST 

Suppose  you  don’t  know  what’s  there  and  you  want  to  find  out-1 
Just  type  m  the  couand  LIST.  LIST  will  show  vou  everything 
That’s  in  teseorarv  se*or,. 

oress  ENTER"’ 


DELETE 

'inallv.  what  if  vou  don’t  want  to  tvoe  in  a  new  orcgra*. 

<ou  just  want  to  delete  a  line1  r'ou  can  do  that  tv  tvomo  in 
DELETE  10.  or  DELETE  20  or  DELETE  -.line  ouster;. 

If  vou  want  to  delete  a  range  of  line  nutters,  you  tvpe  m 
DELETE  ilow  rance-hicn  range’.  Sav  you  want  to  delete  lines 
13  to  33.  Vou  would  tvoe  in  DELETE  15-33.  and  the  lines 


*****  Listing  of  Prograa  'LESSON! /TXT’  ***** 


•an 


07/11/83  -  00:041 30 

would  no  longer  be  in  aeaorv! 
oress  ENTER" 

4hicn  of  the  following  stateients  would  be  an  exanoie  of 
MEDIATE  acde  in  Iticrasoft  S/»S£C? 

A  10  PRINT  “AT  LAST" 

RON 

3  PRINT  25*2-3 
:  32*: 

I  STOP 

press  the  letter  beside  the  correct  answer  and  press  ENTER?  8 
RISHT  -  vou’ve  got  the  right  idea  about  i**ediate  aode 
cress  ENTER  to  continue7 


Hhat  ccaaand  will  erase  everything  m  teeoorarv  nenorv” 
Tvoe  in  the  coaaand  using  caoitai  letters”  MEN 
C0RRECT0  flUNSO  -  THAT'S  RIGHT! 
oress  ENTER"’ 


ilsat  coaeand  will  list  ail  the  line  nuibers  ano  statenents 
that  you  have  Placed  in  tesoorary  senorv’ 

T.ce  in  the  ccstand  using  caoitai  letters"  LIST 

S’SHT  iOU  ARE’ 


2S3 


»m*  Listing  of  Progra*  ’ LESSDN1 /TXT* 


07/11/83  -  00:04:30 


press  ENTER? 


»ihat  is  the  coesand  to  delete  lines  20  to  50 

A  DELETE  20-50 
8  NEW 

C  DELETE  20  to  50 
0  ERASE  20  to  30 

ENTER  the  correct  answer?  A 

RIGHT  AGAIN1 

press  ENTER” 


Nhich  aa  vou  wish  to  do 
A  Continue  on 

S  Review  this  section  again 

press  the  letter  oooosite  vour  choice  and  sress  ENTER"  A 
50IN6  TO  SECOND  PART  -  PLEASE  STANDS/ 


LESSON  IS 

This  is  the  second  cart  of  a  two  o art  lesson 
It  is  divided  into  the  following  sections. 

1)  Library  Functions  4 (  String  Variables 

2)  Variables  (general!  5>  Using  Arithmetic 

3!  Nueeric  Variaoles  4)  Cotparing  Variables 

&  Lesson  Suitarv 

7!  TEST 

A  i’»  taking  this  oart  m  its  entirety. 

S  I  wish  to  review  selected  areas  '.or  tale  the  test!. 


034 


r 


mt*  Listing  of  Progra*  ’LESSGNl/W’  *****  07/11/83  -  00:04:30 

C  1  «ant  to  go  to  the  first  part, 

D  !  »ant  to  return  to  the  Menu. 

Press  either  capital  ft,  S,  C,  or  D  ana  then  press  ENTER?  ft 


LIBRARY  FUNCTIONS 

Nary  iathesatical  FUNCTIONS  such  as  sauare  root,  trignoeetnc 
functions,  and  logrithis  a'e  difficult  to  derive  using  just 
addition,  suotraction,  »uiti plication,  and  division.  To  help 
us  use  these  FUNCTIONS  without  deriving  the*  fro*  scratch 
each  ti*e  we  want  to  get  a  tangent  or  sine  or  square  root,  etc. 
Microsoft  BASIC  has  a  library  of  coifeni  /  used  FUNCTIONS 
already  prograaaed  into  persanent  aeiorv.  All  you  have  to 
do  is  cal!  thei  with  a  BASIC  conand  whenever  vou  want  to  use 
thee. 


You  identify  which  function  you  want  to  use  bv  using  a  keyword, 
such  as  ESP  fcr  square  root. 

press  ENTER” 


LIBRARY  FUNCTIONS  iconti 

If  vou  wanted  to  find  the  sauare  root  of  25.  in  the  IMMEDIATE 
code,  vou  would  type  in: 

PRINT  38R!25i 

Which  would  result  in: 


Notice  how  the  keyword  orecedes  the  value  to  be  *amoulated. 
ana  the  value  is  enclosed  in  parenthesis” 

cress  ESTEP” 


235 


tm»  Listing  of  Rrograa  'LESSGNl/TXT’  e*«* 


07/11/83  -  00:04:30 


LIBRARY  FUNCTIONS  leant? 

Another  exaaole  Mould  tie: 

10  PRINT  3QR(2+fc2> 

RUN 

Which  would  give  you: 

3 

In  this  exaaole,  note  that  Me  applied  a  function  to  an 
exoression  mi th  acre  than  one  ten.  This  is  entirely  legal, 
and  can  shorten  the  nuaber  of  stateaents  vou  aav  need  in 
your  pregra®. 

press  ENTER'1 


LIBRARY  FUNCTIONS  (cont) 

You  ®av  use  a  function  state*ent  anv  nuaber  of  tiaes  in  vour 
progras.  The  different  tvoes  of  LIBRARY  FUNCTIONS  Mill  be 
revieaed  in  a  later  lessor.. 

If  ,ou  don’t  find  the  function  you  aant  in  the  library,  then 
you  aav  create  vour  can  function.  This  is  called  a 
USER  DEFINED  function.  A  USER  DEFINED  FUNCTION  is  not 
stored  peraanentlv  in  aeaorv,  it  can  only  be  used  in  the 
oregras  it  <as  created  in.  Me  Mill  discuss  USER  DEFINED 
FUNCTIONS  in  a  later  lesson. 


cress  ENTER'1 


2UII  tiae’  -  USE  CNLY  CAPITAL  LETTERS  IN  YOUR  ANSWERS' 
Are  the  library  functions  stored  oeraanentlv  in  aeaorv’’ 


*****  Listing  of  Prograa  ’LESSONl/TXT'  it*** 


07/11/83  -  00 


S  No 

press  the  letter  opposite  the  correct  answer  ang  press  EMTER?  A 
CORRECT 

press  ENTER  to  continue"1 


If  the  function  for  converting  a  nuaber  to  an  integer  is 
INT,  shot*  the  statesent  for  finding  the  integer  value  of 
2’.56.  Use  line  ouster  10.  and  leave  only  one  space 
ietween  eleients.  Do  not  include  the  RUN  cossand. 

DON'T  FORGET  TO  ENCLOSE  '27. 36'  IN  PARENTHESIS 

Type  m  /our  answer’ 

NRC.NS  -  the  correct  answer  is  —  10  PRINT  INT (27.56! 
press  ENTER  to  continue’ 


Hhicn  do  vou  want  to  do’ 

A  Continue  on 
S  Review  this  lessen  again 

press  the  letter  opoosite  vaur  choice  and  press  ENTER?  A 


Variables 

Mhen  working  with  cosouters,  it  is  necessary  to  define  the  tvoe 
of  data  you  are  aanioulatina,  if  for  no  other  reason  than  to 
cossunicate  veur  orogras  to  soaeone  else.  Sisabers.  such  as 
10.  32.  30.  1.  etc.,  are  considered  CGNSTANTS.  Can  vou  guess 
»hv"  Its  oecause  they  never  change,  they  are  always  worth  a 
set  asount.  They  are  CONSTANT. 


*****  Listing  of  Progras  ' LESSQN1 /TXT ’  ***** 


Gn  the  other  hand,  m  algebra  we  learned  that  we  could  aan- 
icuiate  nuabers  and  define  orobleas  easier  if  we  assigned 
letters  such  as  X  and  ?  to  eouations.  In  tms  case.  X  and  » 
are  VARIABLES.  That  is.  tftev  could  assuae  anv  value  «e  wanted 
as  long  as  the  value  suited  the  eouatien. 

press  ENTER' 


Variables  leant ; 


The  wav  we  treated  letters  ir.  algebra,  that  is.  assigning 
then  values  that  were  variable  and  mere  for  calculation 
ourocses.  is  the  ease  wa>  we  treat  thea  in  the  coaputer  acrid. 

Far  instance,  it  *e  give  X  the  value  of  3.  then  the  coaouter 
will  store  the  value  3  m  a  aeacrv  location  that  is  labeled  X. 
The  value  will  not  change  until  we  assign  a  new  value  to  the 
i.abel  i.  cr  auit  BASIC. 

'here  are  two  fnr.daaental  tvoes  of  variables  m  BASIC,  tr.au 
are  NUMERIC  variables,  ar.d  STRING  variables.  Cur  ore. sous 
eteagle  of  assigning  i  a  r.uftter  sade  .t  a  NLnERlC  variable. 


cress  cNTcr 


If  we  rad  assigned  a  CHARACTER  •suer  as  av  r.ase.  DAN;  to  a 
<&r.i5le.  then  we  would  have  created  a  S73I.V5  variable. 

A  ST;It»S  variable  holds  data  that  will  not  be  derated  or, 
rathesatiCcll :!  wouldn't  want  a*  naie  coeratei  on.  would 


'he  reason  *sr  ‘avmo  5TFINS  variables  is  so  we  can  do  tilings 
Ii.e  ;r;rt  labels.  oai.e  word  processors,  an:  de.eloo  coaputer 
assisted  instruction  orograss.  If  these  tasi-s  are  done  m 
BASIC,  then  one,  are  done  usinc  STRINGS. 


:ress 


*****  Listing  of  ?racrs»  ' LESSGNl / TXT 7  ***♦» 


ahicli  So  «0u  want  to  do* 

h  Continue  on 
6  review  this  issssn  again 

cress  the  letter  ooocsite  /our  oho ice  anO  oress  ENTER'*  A 


ituseric  vanaeies 

In  ocaauters  we  assign  values  to  /anasles  to  ease  our  os: 


In  this  case,  tne  value  of  7  not  Id  he  assigned  to  i  and  tne 
ccBOuter  would  stare  the  ,aiue  in  its  aeaor/  until  *e  either 
chance:  it.  or  suit  3A3IC.  In  other  words.  we  assigr.es  the 
.alue  c*  3  to  i.  Out  snlv  teacorariiv.  Ta>-.e  the  *ollo«irg 
esaacle: 


>  =  1*2 


mat  :o  >ou  think  tr.e  .al.e  of  i  is  if  we  S'JN  the  e.at.ole 
ares*  cN'En  for  tne  answer' 


Numeric  Variaoies  cor.tl 

Zi  course,  ecu  Use*  the  answer  was  4.  didn't  .au“ 

Eecause  long  urograms  sometimes  need  eats*  /anasles.  Su-esc 
BASIC  allows  <ou  to  use  all  the  letters  of  the  aichahet  SLL>S 
::  allows  »ou  to  aco  a  SECOND  letter  GF  number  to  a  variable 
to  distinguish  it  *raa  another.  Al.  12.  il.  11.  and  FF  are 
legal  .enables.  1A.  22.  or  31  are  not  legal.  Car.  vou  see 
»•*,.*  Sight,  the/  go  not  team  with  a  letter  of  the  aloneoe 


I’ 


*****  Listing  of  Proaraa  '  LESSON  1  / T X T ’  «*« 

<lf  =  “114  West  Cottage  Street J 

I?  this  eiaaoie.  *a  h.a/e  assigned  both  letter;  and  .masers  to 
the  STSImG. 

itaaaies  of  illegal  STS  INS  Usels  «cjla  ie  i,  US.  <221.  JlUt 
ores;  ENTER' 


tr.e  ;oil o»ioq  are  correct  STRINGS' 

North  State  Street 
hcrth  State  Street 

ores;  the  letter  osooeite  tne  correct  answer  ar.d  orese  ENTER'1 

C3FSE2T  -  are  v&i  sore  ;ou  are  cnl  .*  a  student' 

oreee  EN'EF’ 


L 


Which. 


; 

S  A*  5 
C  ATS 

■j  m$ 


suing  oroarao 


an  exasole  or  a  SASIC  orooraa  and  it; 


I)  It  -  '"hie  is  reallv  awesoae.  !  sear  really." 
RUN 


This  is  really  aaesoae.  I  lean  -eai i v . 

Ho  /cu  see  hc«  the  coaouter  treated  the  data7 
•hat  »oold  :e  the  ontout  of  this  orooraf. 

::$  =  •:«:*  :s  a  test  guest isn” 

FUN 


.:e  i:  the  correct  answer  exactly  as  it  weald  be  srmted 


I5CN1.  TUT'  »**»» 


st:  na  ct  Progras  \E3 


IGRfiECT 
oress  ENTER" 


iitucr,  do  lau  want  to  do? 

A  Continue  on 
3  review  this  lesson  again 

uress  tne  letter  oocosite  /cor  choice  and  oress  ENTERS  A 


Usmc  firitheetic 


SASIC  mil  let  you  use  anthaetic  to  figure  out  aiisst  an* 
aatnaar.cai  task  you  would  want.  BASIC  uses  h»e  svafcols 
rearssent  addition,  subtraction,  aultiolioatsen.  division 
siconentiatisn  Craisins  sosettunc  to  a  comd.  tiers  tftev 


carenthesis 
cress  EKTsS? 


"leaning 


addition 

subtraction 

eultiohcation 

division 

exoenentiatioft 


maaoie 

A*: 


A'2  .A  sauared; 


-  are  also  used,  tust  as  ;n  aicebrai 


jsinc  Anthaetic  'com; 

Vote  that  a  always  *ust  te  used  for  aultiaiicaticr. 

If  ;cu  tries  to  use  an  <  or  a,  the  csssuter 
would  tnni:  ;ou  were  trvma  to  cut  in  another  variable  lab 
ana  ziOuid  give  vou  an  error  oessaoe.  A.so.  .ou  carnet  use 
tares  line  C:Z.  to  usa’  3*5.  if  you  to.  »eu  nil  set  an  ir 


'5i 


*****  Uetinc  oF  Procras  'LESSQN'/T.tT'  ***** 

It  -.cu  out  tit:  variables  together.  like  A  and  5.  to  sane  AB. 
•ci!  are  not  suitiolvmg  then  rather.  .:u  rest  create:  a  tES« 
variable  .A3) ! 

5:  aUavs  resesber  to  use  toe  asterisk  ter  auitioiicaticn. 
oreaa  ENTE'" 


l/sioo  Aritfisetic  coot.' 

'be  svecals  w  just  looked  at  are  callec  ARITHMETIC  OPERATOR 
aid  the-,  aav  be  ccahmed  m  an-;  oroer  :o  a  SASIC  statesent. 
Hone.er.  tost  line  satnesatios.  the  coaouter  aiii  treat  Eoae 
s*scois  *ito  a  hi  oner  orient*  than  ethers.  For  esaaole: 


I:  this  statesent.  the  coscoter  sill  scan  the  line  ar.d  Jo 
all  terse  aitnn  oarentr.es; s  First.  Then  ;t 
■ill  scan  For  e;.noner.tiation.  oerFo-s  those  derations.  then 
it  aiii  star,  tor  auitioiicaticn  2?.  di.isior.  ard  oer‘cr*  tr.es- 
oserstions  as  it  tcaes  to  ties,  and  Final  1*.  it  «i!i  scan 


*****  Listing  of  Prcoras  'LES'aOiU/TXT'  »*m 


1  r  -  .-L-.i. 

3  1  -  5«2M3*3el:-iO 
c  r  =  :o/:;>3*ti 

2  fj  ;  l(!*~-2 

cress  the  letter  ooocsite  the  correct  answer  anc  cress  ENTER0 

WRONG  -  the  right  answer  is  S  <R  -  5»2ei3*3»2>-10 

■H  =  5*2+1101-10) 

:si  *  io  *  10  -  10/ 


or  ess  ENTER  to  continue’ 


which  so  vou  want  to  do0 

H  Continue  on 
3  Review  this  lesson  again 

cress  the  letter  cooes: te  .our  cneice  and  cress  ENTER'1  A 


Cojoarir.g  Variables 

BASIC  uses  sviSols  to  coacare  values  to  oetermne  -elationsmos 
such  as  whether  ore  variable  is  less  than,  acre  than,  or  eoaa! 
to  another  variable.  *e  h»*e  already  ^seo  one  ot  these  svsbols 
:t  is  called  the  ecus!  sicn  =  when,  vou  start  orograeeing, 
jj  will  otter,  wart  to  cheer  to  see  .♦  one  variable  is  aif- 
‘ers't  than  ar.cthe-.  There  are  si «  spools  vou  can  use  to 
d:  this. 


cress  ENTER  for  eiaaoles’ 


Cu»oarmo  Variables  leant ) 


7/11/0 


(svebol  table' 


*****  Lasting  st  Froqru  ’LESSDNl/TXT'  »*»♦♦ 


3»aSoI  fleam  na  E.:aacle 

=  eoual  A=2 

less  than  A‘8 

greater  than  AS 

1 not  ecual  to  A-.  S 

.=  less  than  or  ecual  A:.=3 

1-  greater  than  or  eoual  A; -6 

He  nil  discuss  these  in  sore  cetail  in  a  later  lesson. 

or  ess  ENTER’’ 


That  concludes  this  lesson.  when  von  hit  ENTER  vcu  will 
:e  returned  to  the  start  of  this  oart.  fou  sav  either  tate 
the  test  or  review  selected  areas. 

Si  now.  .ou  should  understand  the  fallowing  orograa. 

1C  ?RlNT‘ITr,e  oroduct  of  10  tines  3  is  ‘ 

20  ps’NT  ic  *  3 
:c  PRINT 

oBTvj’ 

EC  END 
RON 

•3 or  hcaewore  assionaent  wiii  reauire  vou  to  write  a  crasra« 

suilar  to  this.  Line  10  unfits  the  string,  line  20  onnts 

the  (atheistical  calculation,  tines  30  and  40 

#nnt  two  slant  lines.  ?ou  sate  the  crccrai  work  fc>  using 

the  RUN  worg  after  >cu  ha.e  entered  the  stateients. 

four  actual  ho»e*or>.  ass.gnaent  is  at  the  end  of  the  test. 

cress  ENTER' 


LESSEN  1? 

This  is  tke  second  cart  of  a  two  oart  lesson 
It  is  ii.ides  into  the  following  sections. 


*****  Listing  of  Progras  ’LESSQM1/TXT’  ***** 


07/11/83  -  00104:30 


li  Library  Functions  4)  String  Variables 

3!  Variables  .general;  5!  Using  Arithmetic 

3)  Nuseric  Variables  5)  Comparing  Variables 

fc  .esson  Smeary 

?>  TEST 

A  I’»  taking  this  part  in  its  entirety. 

3  !  wish  to  review  selected  areas  (or  take  the  testl. 

C  I  want  to  go  to  the  first  oart. 

3  1  want  to  return  to  the  henu. 

Press  either  caoitai  A.  3,  C.  or  D  and  then  press  ENTER"1  B 


LESSON  IB 

This  is  the  second  part  of  a  two  oart  lesson 
It  is  divided  into  the  following  sections. 

Library  'unctions  4!  String  Variables 

2i  Variables  (general)  5!  using  Aritheeti: 

3)  Nosenc  Variables  a)  Cceoanng  Variables 

$  Lessen  Suaearv 

?!  TEST 


'lease  tvoe  in  the  nueber  aeside  the  area  vou  wish 
to  review  il  th-ough  7)  and  then  Dress  ENTER  -  press  0  and 
press  ENTER  to  return  to  the  henu. 

what  is  veur  choice"1  7 


FINAL  TEST  i lessen  1) 

This  test  consists  of  10  Questions,  vou  #ust  get  70  percent 
of  thee  correct  to  oass.  (that's  7  right  out  of  the  10  oues- 
f.ons).  Use  or.lv  capital  letters  in  vour  answers,  don't 
include  e;tra  soacss  or  letters.  If  vou  answer  a  Question  wrong. 
.cj  get  the  correct  answer,  olus  a  reference  for  review. 

In  addition,  .cu  will  get  a  synopsis  of  areas  for  review 


-no 


_ ...  ..  . .  . 


*****  Lstino  of  Proqrai  ' LE3S0K1 /TXT*  ***** 


;S3  -  00:04 


at  the  end  of  the  teet. 

If  <ou  successful 2 •/  3sss  the  test,  m  mil  be  3i»er  #c or 
hcaeworfc  assicnsent.  GOOD  LUCK1 

cress  ENTER  to  continue-' 


Is  i  coeouter  oroqras  called  Software’' 


A  ves 


B  No 

cress  the  letter  oooos'.te  the  correct  ar.s»er  ane  Dress  ENTER-’  A 

CuRREET 

oress  ENTER-' 


Which  of  the  following  is  ao  e*a*cle  of  a  P'JNCTION 

A  LIST 
B  NEK 
C  3  SR 
D  ADD 

cress  the  letter  oscasste  the  correct  answer  and  cress  ENTER?  C 
CDRREET 


cress  ENTER  to  continue1 


Which  staceeent  would  orir.t  the  word  TEST 


A  PRINT  TEST 
5  PRINT  •TEST" 

C  OUTPUT  ’TEST" 
5  PRINT  'TEST- 


3u0 


m«*  ustmq  at  Prcqraa  ' LE5S0N1/TXT '  **»*» 


07/11/83  -  00: j4 


or sss  ENTER” 


Nhich  of  the  tcllomnq  stateaents  is  invalid? 

A  25  =  X 
6  PRINT  SGR (25) 

C  PRINT  25'MO 
D  L  =  «v-N 

T*pe  in  the  letter  opoosite  the  INCORRECT  stateient”  A 

CORRECT 

oress  ENTER” 


A  string  vanahle  is  lade  of  aatheaaticai  equations  which 
will  be  aamoulated  bv  the  coaouter  and  saved  in  tesocrarv 
aeaorv.  TRUE  or  r  ALSE-' 

Trie  :n  TRUE  or  t.oe  in  FALSE  for  this  stateient”  FALSE 
C3RREC* 


oress  ENTER” 


Nhich  of  the  foilsmno  is  an  e^aaole  of  a  oerioherai  device” 

A  CPU 
B  MEHGRY 
C  KEYBOARD 


press  the  letter  oaoasite  the  correct  answer  and  oress  ENTER”  C 


CORRECT 


oress  EN'ER 


07/11/83  -  00 


*«**  uistj.ia  of  Prograe  ' LESSON! .TXT'  »**♦» 


If  vou  had  the  following  orcoraa  ;n  teacrvi 


10  6=34 
20  <=*0 


Yst  (! 


What  stateaent  Mould  vcu  use  to  reiGve  the  aiddle  two  lines1' 


A  NE* 

8  PRINT  10  *  40 
C  DELETE  20  to  30 
D  DELETE  20-30 

cress  the  letter  oocosite  the  correct  answer  and  cress  EMTES"1  D 
C2RRE3T 


cress  ENTER" 


7 ou  have  finished  the  test,  out  of  10  oossihle  correct  answers 
<ou  scored  10  . 

■OU  HAVE  PASSED 

Do  vou  want  your  score  recordeo  an  a  oer-sanent  tile" 

A  ft: 
t  NO 


which"’  A 


To  record  vcur  score,  we  lust  seen  a  file  and  cut  your  naae 
;n  \herefcre,  surer  is: no!.,  we  need  .our  naae.  I*  vour 
rase  is  not  uniaue  a*crg  the  students  lilel-.  to  take  this  test, 
olease  contact  .cc  test  aontcr  for  an  identifying  wore  that 


*****  Listing  if  Rrcaraa  'LESSCN2/TXT'  ***** 


TRSDOS  Ready 

pasic 

? ASIC  01.00.00  for  TRSDGS  version  3 

Cocvright  >.;!  1983  Bv  NioroECft.  licenses  to  Tandy  Corpora 

fill  riatts  reserved. 

fteadv 

ran“lesson2 


•_e=som:  BASIC  2  VERSION:  1  AUGUST  3; 

TINE  REQUIRED  TO  COMPLETE  LESSON:  ADOut  One  Hour 


AUTHOR:  Cast  Danny  J.  Creacan 

Air  Farce  Institute  of  Technology 

OBJECTIVE:  To  teach  the  student  about  oeraanent  storage, 
how  to  handle  data  in  BASIC,  and  ho*  to  branch 
different  Darts  of  a  procraa. 


press  the  Z.’;TER  le.  to  continue" 


LESSON  2 

This  is  the  first  part  of  a  two  part  lesson 
it  is  divided  into  the  following  sections. 

4:  REflarks 
5!  INPUT  Statements 


A  I's  talma  this  part  in  its  entirety. 
S'  I  wish  to  review  selected  areas. 

"  I  want  to  00  to  the  second  part. 


.rtroduction 
Fiienaaes 
SAVE.  LOAD.  B 


*****  uistina  of  Proora*  ' LESSQN2,  TXT ’  ***** 


07/1!/ 


C  I  want  to  return  to  tne  Menu. 

°ress  either  caoital  A.  S,  C.  or  D  ar.d  then  press  ENTER-’  A 


Do  vcu  wish  to  see  an  answer  to  the  hoaework  enables  » V/Nj "*  v 


Here  is  one  oossible  wav  to  ccaolete  vcur  hoeework: 

SO  PRINT "THE  SUM  OF  S.  Z.  AND  2Z  iS“ 

20  pp;sT  ]  *  Z  *  22 
30  PRINT 
1C  PRINT 
RUN 

THE  SUM  3F  Z.  Z.  AND  Z2  IS 


tou  :an  try  this  one  if  vou  had  trouble  with  yours.  Press  ENTER" 


Introduction 


In  this  lesson  we  mi!  cover  sose  of  tne  ,vost  exciting  and 
^se-ui  cossards  m  the  BASIC  language.  when  we  left  off. 
in  lesson  S.  we  had  discussed  sose  or  the  rundaientai  ccMands 
that  .ou  tost  ose  :ust  to  get  SASIC  started.  Now.  we  wjli 
discover  how  to  SAVE  our  orooraas  for  future  use.  how  to 
control  data  incut  m  our  orocra*.  and  how  to  leave  little 
eessaces  in  our  croarai  so  that  other  orograasers  can  uncer- 
star.d  what  we  are  trvi.no  to  do.  Most  isoortantlv.  we  will 
discover  how  to  branch  to  different  Darts  of  a  oroora* 
depending  on  our  data  lamculaticn  requireaents.  That  wav.  one 
oroora*  car  he  eitreselv  flexible  and  do  ian»  different  nnas 
of  wort  ‘or  us. 

oress  EN'ER  t:  continue-’ 


37/11/83  -  00 


*****  Li st i no  at  Procraa  ' LESS0N2/7XT'  *»*»♦ 


Introduction 

After  Urine  this  lesson,  its  recsaiend  vou  sractice  so*e  c{  the 
teenmeues  .ou  have  learned,  Tne  best  wav  :s  to  write  a 
snort  crcgra*  or  ,our  own  and  jet  it  working.  Then  get  a 
short  oregraa  traa  a  aaqacine  or  took  and  tvse  it  in.  Don't 
Se  afraid  to  exoeruent  with  it.  The  test  wav  of  learning 
BASIC  is  to  cractice  it. 

tress  ENTER'1 


Filenames 

Reoeacer,  m  lesson  1.  when  we  discovered  how  to  lake  troqraas 
that  could  te  PCX  over  ar.d  over1  Me  said  then  that  the  oro- 
qraa  was  stored  in  TENPQRARV  aeaorv.  If  you  tried  a  few  of 
the  eiaaoies  that  were  given,  vou  will  have  noticed  that  the 
oroqraa  was  destroyed  whenever  vou  left  BASIC.  This  section 
and  the  next  section  will  show  vou  now  to  SAVE  a  oroqraa,  and 
then  call  it  hack  fro*  PERMANENT  storaqe.  That  wav.  when 
v-qu’ve  scent  hours  aafcmq  the  best  data  aanaqer  ever  written, 
you  won't  have  to  re-write  it  when  vou  turn  on  the  sachir.e 
again1 

PERMANENT  storaqe  is  the  wav  we  store  data  for  an  indefinite 
oeriod.  Me  usually  use  DISKS  or  TAPE  for  PERMANENT  storaqe. 
cress  ENTER1 


Fi lenaaes  :cont; 

For  the  purposes  of  this  lesson,  we  will  assume  vou  only  use 
DISKS  for  oersanent  storaqe. 

A  SISK  is  a  clatter  of  iron-ovide  coated  material  that  stores 
data  almost  the  sase  wav  that  ar.  audio  tace  stores  ausic. 

A  DISK  coias  m  .sanv  sices  and  with  aanv  different  storaqe 
caoat'iiitiss.  Fortunately,  the  wav  we  store  data  on  disk  when 
we  are  usino  Microsoft  BASIC  is  standardiced  for  alucst  ail 


*♦*»*  Listing  of  Prograa  ' LESSQN2/TXT ’  wm 


installations,  (there  is  a  slight  difference  if  you  are  using 
a  TRS-30.  we  Mill  explain  it  as  we  go  along) 

oress  ENTER'1 


Filenaaes  tcantJ 

What  happens  when  vou  store  data?  Nell,  the  coeouter  takes 
care  of  tost  of  the  details,  it  waits  until  vou  tell  it  to 
store  a  orcgraa.  cnen  it  searches  the  available  storage  areas 
to  see  if  there  is  root  for  storage  of  vour  aesteroisce.  then 
it  writes  vour  data  on  the  DISK.  Reiieeber.  there  *av  be  KAN? 
programs  stored  on  a  disk:  therefore,  each  oroqrae  oust  have 
a  label  that  distinguishes  it  froa  the  others.  That  wav.  the 
cosouter  ;an  find  vour  orogras  when  vou  ask  for  it  again. 

cress  ENTER" 


Filenases  icont) 

This  label  is  called  a  FUEMttE.  FUEhAttES  are  verv  strict!.- 
controlled  bv  tr.e  cosouter.  Thev  sust  follow  the  * ol  1  owing 
forest  EKACTtf. 

TF. 5-30  CFGSEMC3  (or  CRN) 

.filenate! ■  (extension  (fiienaie; . (extension: 

Notice  that  the  oniv  deference  between  a  TRS-30  and  Crcceecs 
is  that  the  TRS-30  has  a  slash.  V.  between  the  f  1  i erase 
and  the  e.  tension,  while  the  Crotesco  has  a  period  or  dot, 

press  ENTER" 


Filensees  (cent.’ 


♦»»**  Listino  of  Program  " LES30N2. TIT '  ***** 


07 


(filename!  '.extension}  i filename).  -.extensioni 

In  toe  tao  examoles,  '.filename!,  is  an  alphabetical  onaracter 
string  no  longer  than  eight  '.3.’  characters.  .extension;  is 
a  *i 1 e  extension  na*e  that  is  also  an  alphaoetical  character 
string.  The  extension  *ust  not  be  longer  than  three  ;3) 
characters.  The  extension  is  OPTIONAL  but.  it  used.  must 
fp’lGm  the  rarsat  ElACTc).  NtiHBESS  tat  be  used  in  both 
m lana.oes  and  extensions,  but  they  *ust  MGT  be  the  FIRST  letter 

cress  ENTER” 


Filenames  icontl 

Here  are  sane  exasoles  of  legal  filenames  for  vour  computer 


KYPROS/BAS 
.1RHAPP7/PAS 
5HIKFIN2.  BAS 
GOODNESS 


NYPRQG.BAS 

KRHAPPt.BAS 

SttIHFIN 

S00DNESS.9AS 


Notice  that  the  filenames  do  not  have  to  maxe  sense,  -ust  so 
thev  lean  something  to  the  programmer  mho  made  the*,  ut 
mould  be  unmise  tc  name  vour  program  something  com*on, 
lil;e  TEST. BAS,  because  soaeone  else  has  orooablv  already  used 
that  name.  If  thev  have,  .ou  mill  destroy  their  orcgra#  when 
.-ou  SAVE  vour  program  to  diet.  Each  program  name  must  be 
unique, 
press  EN’ER" 


Filenaaes  conti 


SN1NF1N.BAS 

Notice,  m  the  above  filename,  the  extension  is  BAS.  This 
mould  nortallv  indicate  that  the  file  is  a  BASIC  file  wou 
*a.  ha>e  mord  processor  ‘lies,  sachine  language  flies,  or 
a  .arietv  of  others:.  A  oooO  tip  is  to  aimavs  saye  vour 
BASIC  files  mitr.  this  extension.  That  mav.  mhen  /ou  read 
the  disk  director/.  -,0u  can  tell  that  you  ha»e  to  go  to  BASIC 


3;  9 


07/11/93  -  00:33:53 


*****  listing  at  Prograa  ‘LE3S0N2/7J7’  **»»* 


to  run  anv  oraqraa  that  has  the  extension  -  .MS. 
cress  ENTER” 


Filenames  '.cant ? 

This  section  is  verv  important  to  vou.  It  has  shown  vou  what 
filenaaes  are  and  what  legal  filer.anes  loot  like.  In  the 
to tore  vou  Mill  use  thee  a  lot.  9e  sure  vou  under¬ 
stand  the  idea  denied  filenaaes  hetore  vou  continue.  It 
would  he  a  good  idea  to  look  the*  uc  in  vour  ooeratmg 
sanual  tor  Nicrosoft  SASIC.  There  are  aanv  rules  that  were  not 
covered  here,  but  the  rules  we  covered  will  get  vou  bv  tor  now. 

oress  ENTER"’ 


ENTER  a  T  if  using  a  TRS-90.  or  ’C  if  CPU  or  CR0HEHC0’  C 


In  the  Croaeeco  svstea.  which  of  the  following  would  he 
considered  a  legal  filenaae. 

a  mnm.Fii 
3  34!esson.BAS 
'  TE3T-9AS 
l  UNCHTALK 

oress  tne  letter  ooposite  the  correct  answer  and  oress  ENTER1 
wP.CNS  the  correct  answer  is  A  it- inin.FlL! 
cress  ENTER"1 


Is  the  extension  necessary  for  a  til  erase  to  he  legal"' 


*****  Listing  at  Prograa  * LE5SQM2/TXT'  ***** 


0  7/11/3 


a  res 

9  NO 

oress  ine  letter  cooosite  the  correct  answei  and  oress  ENTER'’ 
wRCNG  -  the  correct  answer  is  S  (the  extension  is  net  needed! 
oress  ENTER’’ 


Which  do  vou  wish  to  do’’ 

A  Continue  on 

s  Review  this  section  again 

oress  the  letter  cocosite  the  correct  answer  and  oress  ENTER’  A 


SAVE.  LOAD  and  RUN 

At  the  beginning  ot  the  last  section,  we  said  we  would  discover 
how  to  SAVE  our  orograas  so  we  wouldn't  ha.e  to  fceeo  tvoing 
the*  in  all  the  tue.  Well,  this  is  it.  To  SAVE  vour  groara*. 
'.let’s  sav  vou  called  it  T'PPGG.BASt.  ail  vou  do  is: 

1!  Tvce  in  the  groqraa 
2;  ”/oe  SAVE  "ftrPRQS. 8A3 * 

Z)  Congratulate  .ourself  on  a  good  job 

Se  s^re  to  notice  that  the  filenaae  is  enclosed  in  auotation 
iar«s.  That  is  aandatorv.  if  >ou  don't  enclose  the  naae  in 
ouotes.  the  coanand  will  'BCKB'  fit  will  tail!. 


oress  ENTER 


st: a?  at  Rrosraj  ' L£=S0f*2  ’f  *»♦*»  U  iZ  ■ 

SALE,  .CAD.  ar. a  ftl»N  -cant 

There  i's  atfte'  ttuncs  <oa  should  ae  a*are  :*  ae*are  ,cl  t*. 
ta  SAv£  a  orsqrai.  first .  cnere  snonia  :e  «aouaft  'aaa  a-'.  ;►* 
disk  t:  hold  the  oroqrae.  it  «ou  are  .sir.a  a  TS0RE“C3  n#r3 
Cist.  i-3u  «n!  oroDaol  »■  net  nave  an-,  oroaiee  .n  this  area.  an. 

’CUR  3  f  S  T  E  ^  OPERATOR  (ar  icre  fat  creation.  !•  ,dl  ate  ..s:': 

TRS-30  seal!  flaaav  dish.  then  ao  ta  tie  CSi*AND  toce  c. 

tvdira  ;r.  C.ffS"  and  then  fame  :r  ;>  ;-j  cr 

CIS  dri.e  ;  >s  railed  :•)  and  dr;.e  2  is  rai.ed  ::  . 

■atch  the  3i so L av.  voa  mi  1 C  see  the  *'ee  soace  left  an  the  aie. 
and  a  2 i RECTOR t  of  the  tiles  on  the  d:s».  ,oe  hive  :.e» 

C.'  era  ns.  then  vou  na>e  encuq.n  race  f  or  alias*,  ar,.  or;:-**. 

SEE  tCUF.  CPESA'INS  RANUAl  FDR  1DRE  DETAIL'S. 

ares;  SNTER' 


SAVE.  'US.  and  LOAD  .rant; 

Resesber.  it  vgu  have  enough  saate.  then  ;jst  foe  m  this: 

SAVE  'RVPP.3S.8A3'  ar  "R> PROS' FAS' 
if  using  a  TRS-S'Ji 

tea  that  *e  on  no*  to  SAVE  a  crocra*.  ho*  oo  *e  ret  it  :a:* 
sc  «e  can  RUN  it  again'  That's  sasv.  Cast  t<pe  mi 

PWRrPRCS.SAS* 

oress  ESTER.' 


SAVE.  RJ'i.  ana  LOAD  iconti 
ftUN*?!rcRCE.sAS:' 

<hen.  .3u  t.-se  n  the  c;»«ana.  the  cancuter  *ili  .aao  .our 
sracrai  TMT  ?CU  hAD  PREVIOUS;.?  SAVED,  ana  RUM  it. 

Aha:  i*  ,oj  ;ust  saved  a  Cieco  o-  a  are c'in  oecaese  <c.  *ere 
t.tjO.  e-sest ire  t:  case  Caci  a:  a  late-  date  and  add  ta  if 


*****  Li st i “o  ot  Proqrae  uEESENE/TX'”  ***** 


;  55LEEZE 
5  LGAC 'SQUEEZE" 

:  LCA:*S3LEE2£.8AS‘ 


dress  *.'e  i e iter  ooocsite  trie  correct  ansser  ar.a  oress  ESTER 


aRCNG  -  the  csr-ect  issue'  is  S  .lCAC “SE-UEEZZ ’ 


cress  - N i  - . 


Wh.ch  do  .a-u  «isn  to  do' 


f  uonomue  .  i 


.review  this  5Kt::s  adsir. 


cress  tie  letter  ccoosite  the  correct  answe-  ana  sress  ESTER 


scaetlung  «e  should  start  earl.  m  sur  or  oor  astir. :  life,  is 
j£-E'.lt£S*AT’2!i  a*  ho*  a  or  oar  as  runs.  ;ou  car.  include  state¬ 
lier  ts  within  a  or  cor  as  ’RAT  WILL  SC*  SE  TOUCHED  3v  THE  C31P'J 
a.td  .nil  add  :o  tne  clar:;.1  or  ,'Our  orcaras.  That  war.  »her. 
,:u  LIE’  tsar  irasne  cr  «her.  another  srsqnMtr  does.1.  »cu 
car  ’ea:  the  resir.qe-s  left  behind  an:  sore  full,  understand 


rose  stateserts  are  called  RES  stater, ert;  .REha'-  statesent 


•ftss  ENT-?.*1 


RE.Iarts  .cant-- 


'he  for  sat  -or  a  EEh  statesent  is  LINE  »t  RES  ifiEMRf.a! 


e:  aso.e  is: 


di i uHS 


?rC3.ro2  ‘ LES5GN2/ "XT '  ***** 


INPUT : 


and  ?";N 


*e  na^fi  l€=rncC 


then,  that  the  INPUT  ststesent 


t:  cSlt?.  Sat  a  in  a  araaraa  »nle  it  :s  running.  It  soes 
this  ii  stcaaif.o  the  arogras  and  aaif.no  -or  vcu  to  enter 
data.  a.  an  vou  do.  it  eete  the  oata  eouai  to  the  lariati 
on  tre  end  -f  the  INPUT  stateaent. 


rdt*e€.“ 


the  sessace  or  jrooot  and  the  variaoie. 
o  I  ace  a  ?*« -colon  .look  at  esasals  aso»e: . 


INPUT  Etatessnta 

vsc  aa>  oee  the  ls:JT  atatsaent  »itftcut  uair.a  a  croact  or 
aessaoe.  I*  .do  do.  tr.er.  <ou  aust  NOT  out  in  a  eeai-coio 

- r. *  g v  £<jr  ’  z  * 

i>  ?PI‘iT‘«her  -.Cu  aee  a  o.estion  nark.  ENTER  a  !" 

INPUT  N 
PUN 


»‘:Eh  sag  a  oueetioh  sari-:.  ENTER  a  t 


INPUT  Stateients  leant: 

IT  :P  iN.f^ner  ecu  see  a  west  ion  ear*.  ENTER  a  l 


«‘5'  .Ou  see  a  duration  tan.  ENTER,  a  5 


h*m  Listing  of  Progra*  'LZE3QN2.' T T * 


READ  ana  DATA  Etatesents 


in  the  first  Dart  af  this  lessen.  we  learned  that  the  INPUT 
statesent  is  verv  efficient  far  assigning  Data  to  a  variable 
while  the  oregraa  is  running.  However,  when  we  have  sanv 
data  aci nt s  to  assign  to  variables,  we  need  a  sore  effi¬ 
cient  sene.  Think  of  how  tedious  it  »ouid  he  if  »cu  had 
to  write  statesents  to  assign  250  data  saints  m  a  crogra*1 
:t  is  not  unusual  to  have  10  tues  220  data  ooints  for  large 
regressions  or  forecasting  orograasi 

few  do  «e  handle  such  a  huge  workload?  One  wav  is  to  use 
SEAS  and  DATA  statesents 


ENTES-1 


READ  and  DATA  'cents 

READ  and  2ATA  statesents  are  used  like  the  equals  sign  is 
used,  out  thev  are  auch  faster  ana  tore  versatile.  Also. 

READ  and  DATA  statesents  OPERATE  WITHIN  THE  C'R05RA!1  INSTEAD 
SF  INTERFACES  VD'J  WITH  THE  PRQSP.AI*. 

READ  and  DATA  are  t»:  seoarste  statesents.  tut  thev  are  ALWAYS 
osed  4l’H  each  cthe-.  The  READ  statesent  assigns  the  data 
a  the  orograo  -uns.  and  the  DATA  statesent  Tolas  the  values 
to  be  sssigr.eo. 


READ  and  DATA  cent; 
The  ‘onset  the  READ  statesent  is: 
lire  roster;  READ  'variable 


.ariables) 


*****  Listing  of  Frograa  ’LESSGND/TlT'  ***** 


o 


An  e<aa&!e  of  a  READ  ststesent  that  mould  read  values  into 
.enables  81.  A.  and  ns  is: 

10  READ  31. A. m 

oress  ENTER? 


READ  and  SATA  icontl 


10  READ  Bl.A.nt 

Note  that  bath  nuaenc  and  string  vanaoles  aav  be  ‘read’ 
An  exaaole  of  a  DATA  stateaent  that  mould  be  read  is: 

:0  DATA  22.15.  "AIN'T  she  sneer” 


Notice  that  the  DATA  stateient  has  a  different  line  nuaber.  but 
;t  fcllcms  the  sate  foriat  as  the  READ  stateaent.  When  these 
t«o  stateients  are  slated  m  a  srocraa.  the  variables  81.  A. 
ar.g  ,US  mould  hold  22.  15,  and  “AIN'T  she  smeet?”  resoect; veiv. 

oress  ENTER? 


READ  and  DATA  '.cent; 

The  tic  stateaer.ts  can  aooear  an.mhere  m  a  orograi  and  in  anv 
order,  but  for  clarity,  orograaaers  usual!.'  olace  the  DATA 
stateaent  arter  the  READ  stateient.  Also,  the  DATA  stateaer.ts 
are  us. all.  groused  «itr.  other  DATA  stateaents  m  the  orocrae. 
We  do  that  because  it  aaes  it  easier  to  ‘igure  out  another 
cr  oorai  when  there  .  s  ar.  order  to  hc«  the  grograaier  entered 
n:s  stateaents. 


Is  the  to. lowing  stateient  TRUE  or 


FALSE' 


*****  Lisf.r.c  of  Rrocraa  'LESSCN2/TST'  ***** 


A  READ  stateaent  reads  values  froa  a  DATA  stateaent. 
and  olaces  tne  values  :r.  <ar;adles  that  are  to  the 
racist  of  tne  READ  word. 

ENTER  tne  ..era  TRUE  :r  ENTER  tne  word  FALSE"1 

WRONG  -  tne  sentence  is  valid. 

nr  ess  EN’ER" 


READ  and  DATA  .cont! 


READ  Bi . A. 1 st 


DC  DATA  ;:.5.‘AIN,T  she  sweet"” 

The  .ar; aisles  in  the  READ  stateaent,  and  the  values  in  the 
DATA  stateaent  are  seearated  bv  coseas,  and  the  string  is 
enclosed  m  Quotes.  Tou  cannot  assign  string  data  to  a 
nuaeri:  variable.  if  vcu  do,  vour  computer  will  throw  uo' 
well,  at  the  verv  least  it  will  ALMA VS  give  *ou  an  ERROR 


o'ess  ENTER" 


-EAD  ar.d  DATA  ;cor,t. 

1C  9EAD  Bl.A  1 
DC  rr:nt  81, A. V 

30  PRINT  ,The  a.erace  of  these  r.uaders  is”: 
*0  PRINT  S1*A*V)/: 

EC  DATA  f.;0.l5 


S: ,es  us: 


The  averace  of  these  ousters  is  10 

WCH1  Etudv  this  e.najole  for  a  acsent.  Note  that  the  oalcuii 
tior.s  were  ormted  Oeside  the  aessacs  instead  of  below  it. 


07, 'li, a:  -  o0:55:53 


•»nc 


i«w  Listing  sf  Procraa  'LEaSONZtTtT'  ***** 


97/11/33  -  99:55:5 


Dress  ENTER’’ 


READ  and  uATA  icont; 

The  calculations  «ere  not  ormteo  on  another  line  because  of 
the  5e«i-colcn  after  the  print  stateaent  in  line  30. 

10  READ  Bl.A.Y 
20  PRINT  Bl.A.V 

30  print  "The  average  of  these  nuaoers  is*; 

40  PRINT  Bl.A.V 
50  DATA  5.10.15 

Line  10  read  the  data  m  line  50.  line  29  PR  I  NT  ed  it.  and 
line  30  printed  the  aessage.  The  calculations  m  line 
40  were  printed  on  the  end  of  the  fessage  due  to  the  seai-coion 
at  the  tail  of  line  30. 

aress  ENTER’' 


READ  and  DATA  'cont' 

Let's  loci;  at  it  once  acre: 

10  READ  Bl.A.V 
20  PRINT  Bl.A.V 

30  PRINT  ’The  average  of  these  ousters  is"; 
40  PRINT  <B!*A+V)/3 
50  DATA  5.10,15 

Save  us: 


The  averaae  of  these  nutters  is  10 


oress  ENTER" 


Listing  of  Proeraa  'LESS0N2.TXT- 


No*  for  a  neat  exaaoie: 

;0  READ  Al.31.Cl 

29  PRINT  Al.31.C2 

30  DATA  1.2 
Pli.N 

Gives  as: 

31! T  3F  SATA  IN  20 

Tfie  SASIC  language  processor  gave  us  an  ERROR  aessage  that 
indicates  *e  didn’t  have  enough  data  for  the  nusber  of  varia 
dies  that  *e  tried  to  READ. 


ENTER'1 


REAS  anc  SATA  fcont) 


iv  REAS  AS. SI. Cl 
PRINT  AI.8I.Ci 
30  SATA  1.2 

'his  drograia  mil  BONE  ‘fail)  because  it  will  trv  to  find  a 
non-existent  data  oomt  for  the  variable  Cl.  If  there  had 
Seen  tore  DATA  points  than  READ  variables,  the  orogra#  aould 
ha.e  ntrfec  just  fine.  The  nest  fraae  has  an  esassie  of  thi 


READ  and  DATA  cent; 


ID  SEAD  A  1.31 


*****  List ina  of  Proora*  ’LESSQNZ/TKT'  ***** 


07/11/33  -  00:55:53 


Although  there  were  tore  data  points  that  could  have  been  read, 
there  were  no  tore  /enables  left  to  READ  then,  so  the  orogra* 
stoooed.  This  would  not  cause  an  ERROR  sessage. 


press  ENTER'1 


Is  the  following  orogra*  »ai id^ 

10  READ  X.Y.2 
20  DATA  25.2, 15.25.64 
30  PRINT  2 

A  ‘'es 
S  No 

Enter  the  letter  ooposite  the  correct  answer’’ 

WRQNS  -  the  orogra*  is  valid 
oress  ENTER? 

«hat  is  the  value  of  2  that  will  be  printed  out" 

UR0NG  -  the  correct  answer  is  15.  2  is  the  third 

variable  to  be  read,  so  tne  third  data  point 
is  out  m  it. 

press  ENTER” 


READ  and  DATA  (contf 

Suppose  you  want  to  READ  the  sate  data  points  into  DIFFERENT 
variables’1  Dr  oerhacs  vcu  are  saving  a  orogra*  that  will  deal 
a  deer  of  cards  out.  and  vou  want  to  start  over  when  vou  get 
to  52.  Vou  can  reset  the  DAT«  statements  so  that  variables 
will  be  assigned  old  data  points  b/  usmo  the  RESTORE 
statesent. 


»»»♦♦  Listnc  at  Prcgras  'LES30N2;TXT’  »»»♦♦  07/11/83  -  00:35:53 

oress  ENTER" 


The  RESTORE  statesent  resets  the  DATA  statesents.  After  a 
RESTORE  cossand.  the  next  variable  that  is  READ  will  be 
assigned  the  value  that  is  iust  after  the  first  DATA  word. 

10  READ  A1.31 
30  PRINT  A1.B1 
30  RESTORE 
id  READ  01. D! 

30  PRINT  31. D! 
aO  DATA  1.3 
RON 

!  2 


Study  th.s  exaagle  closely  and  then  oress  ENTER" 


READ  and  DATA  (cent! 

This  has  been  an  extra  long  section  and.  if  you  are  nett  to 
BASIE.  /Ov,  orobaiiv  are  confuses  about  scae  of  the  rules. 

Don’t  let  that  worry  .ou.  Get  out  vour  SASIC  aanual  at  case 
mth  vour  coaouter).  and.  after  the  little  guic  that  is 
coiing  up.  go  baa  and  review  this  section  again.  THEN 
PRACTICE  the  technigues  once  you  are  through  with  this 
lesson.  It  is  very  noortant  that  you  start  oracticing  what 
vou  are  learning.  Practice  with  the  eanua!  beside  you.  and 
don’t  be  afrai:  to  asf.  an  exoerienceo  orograsser  when  vou  are 
confused.  Use  the  e.-.aacles  seen  m  this  oroqra*.  or  sate  uo 
.our  own.  fou  are  one  steo  closer  to  being  a  BASIC  orcgraifer' 

cess  ENTER" 


Is  the  ‘allowing  statesent  TRUE  cr  FALSE1 


329 

I 


I 


«*»»  Listing  of  Program  ‘LESS0N2/T1T’ 


Tne  RESTORE  statement  causes  the  READ/ DATA  combination 
:o  reset  to  the  first  data  oomt  to  the  right  of  the 
first  DATA  statement. 

A  TRUE 
8  PAUSE 

ENTER  the  letter  ooaosite  the  correct  answer’1 

WRONG  -  the  RESTORE  comaand  DOES  reset  the  READ/DATA  oatr 
to  the  first  data  point  past  the  first  DATA  word. 

or  ess  ENTER.-’ 


READ  and  DATA  statements  are  used  within  a  orogram,  and  they 
dc  NOT  stop  the  program  so  DATA  can  be  entered. 

A  ’RUE 
B  FALSE 

press  the  letter  opposite  the  correct  answer  and  press  ENTER? 

WRONG  -  READ  and  DATA  stateaents  DO  NOT  halt  the  prpgrai.  fhev 
must  be  used  within  the  program. 

oress  ENTER" 


ID  READ  A1.B1 
DO  PRINT  Al.Si 
3D  RESTORE 
40  READ  Cl. 31. El 
Zi  PRINT  Cl. 31 
60  SATA  342.34 


The  abo.e  ongram  is  ERROR  free 

A  TRUE 
B  FALSE 


ENTER  the  correct  answer  leither  A  or  3)? 


*****  Listing  of  Progras  ’LE5S0N2.TXT’  ***** 


07/11/33 


-  0011 


NftONS  -  LINE  40  tried  to  read  sore  DATA  than  was  available, 
even  though  the  RESTORE  cotsar, d  «as  used. 


oress  ENTER” 


iihich  do  vou  want  to  do"1 

A  Continue  on 
9  Re  Viet  this  lesson  again 

cress  the  letter  oooosite  vour  choice  and  oress  ENTER"'  A 


Branching  Introduction 


10  A  =  0 
20  A  =  A*! 

30  IF  A  =  5  THEN  53T0  50 
40  3GTC  20 
50  PRINT  A 
60  EnD 

There  are  two  tvces  of  branches,  and  we  will  be  studying  tnea 
m  the  next  two  sections.  Thev  are  CONDITIONAL  branches,  and 
UNCONDITIONAL  branches.  The  aoove  orogra#  has  both  lands  in  it 


Line  30  is  CONDITIONAL  and  line  40  is  UNCONDITIONAL.  Car,  vou 
see  why”  Study  this  fcr  a  sosent  and  then  oress  ENTER'1 


Branching  Introduction 


10  A  =  0 
20  A  =  A*! 

30  IF  A  =  5  THEN  GOTO  50 
40  SCTC  20 
5o  =r:nt  a 


END 


*****  Listma  of  Rroara*  ' LESSQN2/ TXT ’  ***** 


07/11/33  -  00:55:53 


Line  30  is  CONDITIONAL  because  it  mil  anlv  GO  TO  line  50  if 
me  CONDITION  that  A  -  5  is  satisfied.  That  is.  central  mil 
only  be  transferred  to  line  50  if  A  -  5. 

press  ENTER" 


Branching  Introduction 

10  A  -  0 
20  A  =  A* l 

30  IF  A  =  5  THEN  GOTO  50 
40  GOTO  EC 
50  PRINT  A 
SO  END 

Line  40  is  UNCONDITIONAL  because  it  mil  ALWAYS  GO  TO  iine  20 
When  it  is  executed.  There  mil  be  no  choice  ease. 

Control  ml!  ao  to  line  20. 


press  ENTER"1 


Sranchma  Introduction 


10  A  =  0 
20  A  =  An*. 

TO  IF  A  *  5  THEN  SO  t C  50 
40  GOTO  20 
50  PRINT  A 
:0  END 

Notice  that  A  mil  net  equal  5  until  line  20  is  executed  5 
tiees.  Therefore,  until  A  =  5,  the  CONDITION  in  line  30  mil 
NOT  be  net  and  control  mil  NOT  GOTO  line  50.  Instead,  it 
mil  ca  to  the  next  line  ahich  is  UNCONDITIONAL  SOTO  line  20. 

Studv  this  carefully,  and  then  cress  ENTER'1 


m#*  Listing  of  Prograa  ’ LESSQN2/ TXT’  »m« 


Branching  Introduction 


10  >»  =  0 
20  A  =  AM 

30  If  A  =  5  THEN  SOTO  SO 
40  GOTO  20 
50  PRINT  A 
SO  END 

The  state*ent  in  line  20  has  Bade  a  COUNTER  out  of  the  variable 
A.  Ever.tise  the  line  is  executed,  A  is  incremented  bv  one. 
COUNTERS  are  verv  useful  m  BASIC  and  *e  will  discuss  th.es 
sore  in  a  *uture  lessen,  for  no*,  try  to  understand  ho#  this 
oroqra*  works,  and  it  will  helo  vou  issenseK  in  the  future. 

press  ENTER"' 


The  two  tvoes  of  branching  are: 

A  CONDITIONAL  and  UNCONDITIONAL 
3  COUNTER  and  CONDITIONAL 
C  COUNTER  and  Sm 
C  If  and  SOTO 


aress  the  letter  oooosite  the  correct  answer  and  Dress  ENTER’ 
KRONE  -  the  correct  answer  is  A  (CONDITIONAL  and  UNCONDITIONAL) 
cress  ENTER” 


10  A  =  <) 

20  If  A  =  3  SOTO  50 
30  A  =  AH 
40  GOTO  20 
50  PRINT  A 
id  END 
RUN 


tihat  would  be  the  outcut  of  this  oroqra®’ 


07/11/3 


♦♦♦♦*  Li st i nc  of  Prograa  'lESSONC.  TIT'  »♦»*» 


A  1 

s  : 

C  no  cutout  would  ccae  froa  this  oroqra* 

D  Z 

cress  the  letter  cooosite  the  correct  answer  and  trees  ENTER" 
WRGNS  -  the  correct  answer  is  C  !3i 
cress  ENTER" 


Which  do  you  want  to  do' 

A  Continue  on 
E  Review  this  lesson  again 

cress  the  letter  ocoosite  vour  choice  and  cress  ENTER"  A 


IF  Statements 

IF  Stateeents  are  decision  lal/ers  m  BASIC.  Thev  test  to  see 
Ir  a  conditi  on  ic  »et.  IF  it  is.  THEN  they  execute  the  coeeanos 
that  follow  the*  on  the  sate  line. 

The  IF  statement  causes  the  orogra*  to  take  coaparisons  between 
values.  It  is  one  of  the  tost  oowerful  coaaands  m  the  BASIC 
language.  You  have  alreac,  seen,  how  it  can  he  used  m  the 
arevicus  section.  In  this  section,  we  will  explain  it  m  a 
little  acre  detail. 

or  ess  ENTER" 


IF  Stateaents  icons! 

'.0  INPUT  "ENTER  a  n --fiber  between  1  and  10  <0  to  ouitl'lN 
CO  ;c  N  =  0  THEN  5TCP 
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30  IF  N  >  10  THEN  PRINT  “ERROR  -  vou  entered  an  invalid  nusoer' 
40  IF  N  <  0  PRINT  “ERROR  -  you  entered  an  invalid  nueber" 

50  GOTO  10 

This  exaaole  shows  three  variations  of  the  IF  statesent. 

If  we  RUN  this  orograa.  and  ENTER  a  ’O'  when  proaoted  bv  line 
-0,  then  the  CONDITIONAL  statesent  in  line  20  will  he  satisfied 
and  the  orograa  will  stoo. 

press  ENTER"1 


IF  Statesents  Icont! 

!0  INPUT  “ENTER  a  nuaber  between  !  and  10  iO  to  cult! “IN 
20  IF  IN  =  0  THEN  STOP 

30  IF  N  .  10  THEN  PRINT  “ERROR  -  you  entered  an  invalid  nuader" 
40  IF  N  •.  0  PRINT  "ERROR  -  ,ou  entered  an  invalid  nu#ber“ 

50  GOTO  10 

If  we  ENTER  a  12  when  proaoted  bv  line  10,  the  CONDITIONAL 
statesent  ;r.  line  20  will  not  be  satisfied,  nothing  will  happen 
until  control  passes  to  line  30.  At  that  tiae.  the  check  for 
N  GREATER  THAN  10  will  be  set.  and  the  aessage  will  be  printed. 
No  other  condition  will  be  aet  until  control  gets  to  line  50. 
The  UNCONDITIONAL  GOTO  on  line  50  will  send  control  back  to  the 
beginning  of  the  orograa. 

press  ENTER  to  continue-’ 


IF  Statesents  leant  * 

10  INPUT  “ENTER  a  ouster  between  1  ano  10  fO  to  Quit! ’ t N 
20  IF  N  =  0  THEN  S*CF 

30  IF  N  II  THEN  PRINT  "ERROR  -  »ou  entered  an  invalid  r.uaber* 
40  IF  N  •  0  PRINT  "ERROR  -  you  entered  an  invalid  nuaber’ 

50  GOTO  10 

If  we  ENTER  a  -12  when  oroaoted  bv  line  20.  we  will  satisfy  the 
CONDITIONAL  stateaent  in  line  40.  the  aessage  will  be  ormted 
and  control  will  eventually  get  back  to  line  10. 


OUJ 
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ore ss  ENTE fi7 


'  IF  Stateaent  (cent; 

The  IF  stateaent  can  also  be  used  to  cossare  tao  exoressions 
such  as: 

30  IF  (20*2-31  u  (3*10+61  THEN  GOTO  190 

Also.  <ar (able  assignaent  can  be  done  m  an  stateaent: 

30  IF  ’20*2-3!  <  13*10)  THEN  A=1 

pfocc  £MTE^'1 


There  is  another  word  that  can  be  added  to  the  IF  stateaent 
to  aake  it  sore  oonerful.  It  is  the  ELSE  aord. 

22 0  IF  A  -  I  THEN  GOTO  10  ELSE  GOTO  200 

In  this  line,  if  the  variable  A  eouals  !  then  control  transfers 
to  line  10,  if  it  does  HOT  eaual  i  then  control  transfers  to 
200.  In  this  case,  soaeth: no  ALWAYS  haooens  at  line  220 
because  of  the  ELSE  stateasnt. 

222  IF  A  *  I  THEN  3CT3  10  ELSE  IF  A  =  2  GOTO  30 

In  this  case,  if  A  =  I  or  A  *  2  then  soaethmg  ail!  hacoen 
ir.  line  220.  if  none  of  the  CONDITIONS  are  set.  tnen  the  line 
Hill  not  be  executed. 

cress  ENTER” 


IF  Stateaent  (cent! 


*****  Listing  of  Proaran  'LE3SON2/TJT’  me* 


0 


IF  (true, 'false  expression)  THEN  (action!  ELSE  (action! 

The  IF  stateae.nt  instructs  the  ccsouter  to  test  the  following 
loqical  or  relational  expression.  If  the  expression  is  TRUE 
then  control  will  oroceed  to  the  action  line  after  the  THEN 
word.  If  the  expression  is  net  true,  then  control  will  oroceed 
t:  the  ELSE  action. 

press  ENTER7 


Mbit  is  the  output  of  the  foliating  groqraa? 


■TOO  «£AK‘ 
"TOO  STRCNS’ 

"J  3  ->«,» 

A  TQG  NEAR 
A  =  155 
B  ICQ  STRONG 
END 

i  SC  STRONG 


;c  IF  A  ■  'SO  THEN  PRINT 
30  IF  A  054  THEN  PRINT 
40  IF  A  =  255  THEN  PRINT 


ENTER  tne  letter  cooosite  the  correct  answer' 


HRGNG  -  the  correct  answer  is  C  (TC'G  STRCNS. 

•■A  =  255) 


o'ess  ENTER7 


The  IF  statesent  is  a  CONDITIONAL  stateient. 

Is  the  atove  sentence  TRUE  or  FALSE? 

A  TRUE 
;  JALSE 

choose  the  letter  occosite  the  correct  answer  and  press  EN'ER" 


w  J  i 


m«  Listinn  ot  Program  ' LESSCN2.  TXT'  ***** 
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HR0N6  -  the  IF  statement  13  a  CONDITIONAL  statement, 
cress  ENTERS 


•ihich  do  vou  want  to  do-' 

A  Continue  on 
3  Review  tms  lesson  again 

press  the  letter  oaoosite  your  choice  and  oress  ENTER?  A 


GOTO  Statements 


Conditional  branches  are  written  in  orograms  with  IF  THEN  EuSE 
statements.  Unconditional  branches  are  written  with  5G7C 
statements. 

ni  we  saw  earlier.  3QT3  directs  control  ot  a  oroqras  to  another 
line.  For  esamole: 

10  INPUT  "ENTER  a  number  Between  1  and  1 0 * ; N 

20  IP  N  =  3  THEN  GOTO  50 

TO  IF  N  a  THEN  PRINT  "GUESS  AGAIN" 

*0  30T?  10 

50  PRINT  " VCU  GUESSED  IT 
iC  END 

cress  ENTER'’ 


<0  INPUT  "ENTER  a  number  between  1  ana  10'; N 

TO  IF  N  =  3  THEN  GOTO  50 

TO  IF  N  ■  ;  3  THEN  PRINT  "GUESS  AGAIN" 

4c  srs  :o 

5.  MINT  *rOU  GUESSED  IT 


*****  listing  of  Pragraa  ’ LE5S0N2/T XT ’  ***** 


The  3010  stateaent  in  line  40,  when  executed,  sends  control  to 
the  beginning  of  the  prograa. 

oress  ENTER7 


SOTO  (cont! 


You  can  sake  the  SOTG  stateaent  a  SUIT! -wav  branching  statesent 
b<  aodifvmg  it  slightly.  Tor  er.a«o!e: 

10  INPUT  "ENTER  a  nuaber  betneen  !  ar.d  3 “ ; N 
20  jN  N  SOTO  30.50.70 

30  PRINT  "YOU  ENTERED  A  ONE  tor  an  illegal  nuaber)" 

40  STOP 

50  PRINT  "YOU  ENTERED  A  TWO" 

60  STOP 

70  PRINT  "YOU  ENTERED  A  THREE" 

30  STOP 

cress  ENTER7 


10  INPUT  "ENTER  a  ruaber  between  1  and  3".N 
2C  ON  N  SGT0  30.50.70 

30  PRINT  "YOU  ENTERED  A  ONE  'or  an  illegal  ouster!" 
40  STOP 

50  PRINT  "YOU  ENTERED  A  7 NO* 
aO  STEP 

70  PRINT  "YOU  ENTERED  A  THREE" 

30  ETC? 


Mien  line  20  is  executed,  the  value  of  N  is  jsed  to  count  over 
'N'  elesents  oassed  the  S0T0  word.  Control  branches  to  the 
line  nuaber  indicated  bv  this  'Nth'  eiesent.  If  there  is  no 
eieaent  that  corresoonds  to  the  <alue  of  N.  then  control  passes 
to  the  -ext  available  line.  Press  ENTER  when  ready? 


10  INPUT  "ENTER  a  nuaber  between  ;  ar.d  3";N 
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20  ON  N  SOTO  30.50.70 

30  PRINT  ‘YOU  ENTERED  A  ONE  lor  an  illegal  nutter)" 
40  STOP 

50  PRINT  'YOU  ENTERED  A  TNO" 
iO  STOP 

70  PRINT  "YOU  ENTERED  A  THREE 5 
30  STOP 


The  value  of  N  HOST  be  greater  than  0  and  less  than  255.  If  it 
ij  not,  SASIC  dill  sr:nt  an  error.  If  N  is  1,  2.  or  0  then  the 
sracra*  mil  orir.t  the  acgrooriate  sessaqe  and  stoo. 

ores s  ENTER" 


tttcn  lines  (bevond  20)  are  executed  if  vou  ENTER  a  10  here" 

10  INPUT  ‘ENTER  a  nutter  between  !  ana  3‘;N 
20  2N  N  3CTD  30. 50, 70 

30  PRINT  ‘YOU  ENTERED  A  ONE  (or  an  illegal  matter!" 

4u  STOP 

56  PRINT  'YOU  ENTERED  A  7140“ 

40  STOP 

"0  6RlNi  VQU  ENTERED  A  THREE" 

30  STOP 

A  30  and  40 
S  50  and  SO 
C  "0  and  30 

areas  tne  letter  cocos: te  the  correct  answer  then  ores  ENTER" 
4RSN6  -  tne  correct  ansaer  is  A  :20  and  40) 
ores-:  ENTER" 


r'au  are  no*  done  mth  this  lesson.  Often  vou  hit  ENTER,  ,ou 
■ill  be  returned  to  the  *!ENU  eftere  vou  aa<  re*ie<t  sections 
0'  take  the  TEST. 


Resetter,  after  vou  are  dene  here,  oractioe  sose  of  the 


me#  List. '.3  ct  Sraaraa  'L E3S0N2/TTT’  »#m 


07/ 11. 'S3  -  00:55:53 


things  /an  Save  learned.  And  keeo  a  SASIC  aanuai  Cv  v our  side. 
This  a'anraa  will  show  ,oa  tre  f undasentals,  .ou  have  to  teach 
.Curse: 1  hen  ta  :e  good  at  SASIC.  That  leans  you  lust  PRACTICE 

dress  Eh'E"  ta  ;a  ta  the  hENLT 


'his  is  the  secaao  aart  at  a  two  aart  lesson 
It  .s  di.ided  into  the  Following  sections. 

I  PEAS.  DATA  and  RESTORE  3;  IF  Stateaents 

3'  Branching  Introduction  4i  S3TQ  Stateaents  \  Susaarv 

5;  TEST 


A  !’*  taking  this  oart  in  its  entirety. 

3  I  «!*.*!  to  review  selected  areas  ;or  take  the  test). 

3  I  want  to  go  to  the  ‘irst  oart. 

3  !  want  to  return  to  the  ffenu. 

Press  either  aacitai  A.  8.  C.  ar  D  and  then  oress  ENTER’’  3 


cESSCN  33 

This  is  the  seacr.a  cart  at  a  two  oart  lesson 
it  is  divided  into  the  Following  sections. 

V  READ.  DATA  and  RESTORE  3)  IF  Stateaents 

1'  Branching  Introduction  4!  GOTO  Stateaents  4  Susaarv 

5;  TE5' 


^iease  t.oe  m  the  nuaoer  heside  the  area  ;ou  wish 
to  -eview  il  through  5;  and  then  oress  ENTER  -  oress  0  and 
cress  ENTER  to  return  to  tne  Nenu. 

«hat  is  -.51.'  ahoice*  5 


*****  Listing  it  R'ograa  ..ESSCNO  TiT'  ***** 


j7 


:1NAL  'E5T  lesson  2) 

'his  test  consists  or  10  auesuons.  vcu  aust  aet  70  oercent 
ar  tnei  correct  to  cass.  ;  that’s  7  right  out  c t  the  JO  eues- 
ticr.s;.  O'se  cnlv  cacital  letters  in  .our  answers,  don't 
include  extra  saaces  or  letters.  3CQD  LUCK 

oress  ENTER  to  continue-1 


Which  ot  the  Tallowing  is  a  legal  filename1 

S  5CD:XIE.CKD  Un  CPfl  or  Croeeaco) 

B  TRIUBPH/650  tin  TRS-30) 

C  THEKAYOF. B21  (in  CP*  ar  Croaeaco) 

3  SCORE? /SAT  Un  TRS-30! 

ENTER  the  letter  oocasite  the  correct  answer " 

WRONG  -  the  correct  answer  is  C 

Answers  A  and  S  filenames  or  extensions  start  with 
nuabers  instead  of  alahabet  characters.  Answer  3 
nas  a  nan  aloha-nuseri:  character  m  it. 

See  cart  l.  filenaaes.  m  lesson  2. 

aress  ENTER" 


Which  of  the  -allowing  ceasands  will  load  a  file  called  'LOVE'-1 

A  CREATE  ‘LOVE* 

3  RUN  'LOVE* 

2  LOAD  'LOVE. 3AS0* 

2  SAVE  ’LOVE* 

ENTER  the  correct  answer ’ 


WRONG  -  the  correct  answer  is  5 

In  answer  A.  CREATE  is  not  a  SASIC  word,  in 


*****  Listing  of  Fragrea  'LE3SQN2/TXT’  *****  07/11:33  -  00 

an  incorrect  extension  was  used  '.no  extension  was 
needed),  m  3  the  srograa  would  be  saved,  not  loadec. 

See  cart  1.  SAVE.  LGAC.  FUN  of  lessen  2. 

cress  ENTER' 


FENarx  stateserts  are  similar  to  PRINT  stateaents.  er.ceot  that 
the  coacute'  taxes  less  tiae  to  sriat  then. 


ENTER  tne  letter  oooosite  tne  correct  answer” 

URGNG  -  tne  correct  answer  is  3 

REhark  stateaents  are  not  outsat  to  the  screen,  thev 
are  only  used  for  ororraaaer  mforaation.  See  oart  1 

cress  ENTER” 


which  of  the  foi lowing  exaisoles  is  INVALID? 

A  INPUT  It 

?  INPliT"E!»TER  '(OUR  NAME  ‘!N 
2  INPUT  N 

D  INPUT-ENTER  VOUR  AGE" IN 

ENTER  the  letter  oooosite  the  correct  answer” 


WRONG  -  statesen.t  B  is  the  bad  one  because  it  tries 
to  load  a  nuaeric  variable  with  string  data. 
See  Part  I. 

oress  ENTER’' 


Whs:  ccoaand  will  let  you  out  vour  srograa  into  oeraanent 
storage  so  that  vou  can  recall  it  later’’ 
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A  SAVE 
8  RUSI 
7  LOAD 
D  STORE 

ENTER  tne  letter  oooosite  the  correct  answer” 

KRGNS  -  the  correct  answer  is  ft 

RUN  causes  orograa  execution.  LOAD  loads  thE 
program  rro*  dist  and  STORE  is  not  a  BASIC  word. 
See  part  !. 

press  ENTER7 


ihich  cf  the  following  stateaents  is  legal? 

A  READ  AJ  B$  Cl 
8  DATA  A  8  C 
C  READ  22.33.44 
3  3ArA  '’SUIT’. •’FIRE" 

ENTER  the  letter  opoosite  the  correct  answer ^ 

NRQNS  -  the  correct  answer  is  D 

Answers  A  and  3  don't  have  commas  between  vanasles. 
and  answer  C  tries  to  use  constants  instead  of 
variables  for  the  READ. 

See  part  3.  READ  and  DATA. 

press  ENTER"1 


READ  and  DATA  statements  halt  the  orogra#  so  the  ooerator  can 
insert  correct  answers. 

A  TRUE 
3  FALSE 

ENTER  the  letter  opoosite  the  correct  answer7 
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4RCNG  -  the  correct  answer  is  fi 

READ  and  DATA  are  used  to  load  variables  WITHOUT 
stooping  the  aroqraa. 

See  oart  3.  READ  and  DATA. 

Dress  ENTEH? 


The  IF  stateaent  is  a  CONDITIONAL  BRANCHING  stateaent. 

A  TRUE 
S  FALSE 

ENTER  the  letter  opposite  the  correct  answer'’ 

WRONG  -  the  correct  answer  is  A 
See  Part  D,  IF  and  GOTO. 

areas  ENTER'’ 


’he  ;ci'.c»;-ic  arosraa  will  NOT  ha<e  an  outaut  -  TRUE  or  FALSE'’ 


ID  N  =  5 

::  ON  H  SCO  40.a0.20 
:c  s*of 
AC  P^INT  ft 
50  STOP 
ail  PRINT  N 
70  STOP 
SO  PRINT  N 
a0  STOP 


A  TRUE 
6  FALSE 

ENTER  the  letter  aoaosite  the  correct  answer"' 

WRONG  -  the  correct  answer  is  A 

Line  10  sets  N  to  5.  line  20  only  has  I  alaces 
to  ao  to.  ao  it  defaults  to  the  line  under  it. 
That  line  is  a  STOP  stateaent.  See  oart  2.  GOTO. 
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Dress  ENTER- 


The  following  orogras  mil  have  an  cutout  -  TRUE  or  FALSE' 
10  N  =  3 

20  IF  N  =  3  THEN  SOTO  40 
30  PRINT  N 
40  N  -  4 
-0  END 


4  TRUE 
8  FALSE 

ENTER  the  letter  ODBCS'. te  the  correct  answer ^ 

/IRONS  -  the  correct  answer  is  B 

Line  10  sets  N  to  3.  line  20  causes  the  ore-gras  to 
oo  to  line  40.  then  50. 

See  oart  2.  IF. 

oress  ENTER" 


/Bn  hs*e  finished  the  test,  out  of  10  oossiole  correct  answers 
.ou  scored  0  . 


TOO  NEED 

IflFROVENENT  IN  THE  FOLLOWING  AREAS 

oart 

1.  cil erases 

oart 

1.  SAVE.  LOAD.  SUN 

cart 

1.  REha'ks 

cart 

1.  INPUT  Statements 

oart 

2.  READ  and  DATA  Stateeer.es 

cart 

2.  IF  Statssents 

oart 

2.  SOTO  Statements 

*****  Listmc  or  Pracrea  '  LES52UZ/TX1 

YOU  HAVE  NOT  RECEIVED  ENOUGH  POINTS 
lOU  SHOULD  RETAKE  LESS3N 
m  Hill  :e  returned  to  the  Menu. 

3ress  ENTER  to  return  to  the  NENiT 

Ereat  m  3330 
Seedv 

S/STEK’RESK  *30" 


»*»♦»  ustifto  of  Proora*  ' LES3QN3/ TIT’  met 


TRSD03  Ready 

0351C 

SASIC  01 . J 0.00  tar  TRSDQS  Version  3 

Caovrior.t  icf  1 933  Bv  Microsoft.  licensed  to  Tandy  Corseratisn 
All  rights  reserved. 

Readv 

RUN“LESS0N3 


/at  -  v,  -ta-s' 


uESSCN:  SASIC  3 


VERSION:  !  AUGUST  33 


:;.*E  SKUIRE3  TO  CC'IPLETE  LESSON:  Less  than  one  hour 


AUTHOR:  Cact  Sana*  I.  Creacan 

Air  Force  Institute  0-  Technology 

OBJECTIVE:  *o  teach  the  student  non  to  use  LOOPS  end  ARRAYS. 


c.'sss  the  ENTER  tev  to  continue"' 


LESSON  3 

This  is  the  first  cart  of  a  tuo  part  lesson 
It  is  di/ioed  into  the  fo;!o*ing  sections. 

i!  Introduction  *  *  ILL  V  FOR  NEXT  Stateaents 
I;  -JCFs  ; Intro;  5)  Advances  FOR  NEiT 

3;  COUNTER  vanat-les 


A  I'a  tat  mg  this  oart  in  its  entirety 
3  I  msh  to  review  selected  areas. 

3  I  want  to  cc  tc  the  second  ;art. 


»*«  Listing  of  ?rogra*  'LES5GN3/TXT*  *»*«* 


0  I  want  to  return  to  the  leva. 

fr?H  either  caottsl  A.  S.  C.  or  D  an 5  then  ores*  ENTs?.’  A 


Introduction  4  *IlL  itatesent 

Bv  row  vou  should  nave  saved  2  *s»*  saal:  orosraas  to  disk,  and 
■on  should  ha.e  cracticec  aii  the  coaaends  we  nave  discussed  to 
sate.  I*  '.cu  ha.e  aor.oereo  how  to  set  rid  of  a  file  that 
.ou  were  done  with.  or  nave  aistakenh  saved  and  didn't  need 
one  of  .'Our  srcoraas.  the  nest  fraae  ml!  he  of  service  to 
.ou.  It  describes  toe  *  ILL  stateae.it.  We  nave  ourocseh 
out  the  i.IU  statement  m  the  third  lessen  because  it  is  a 
daroerous  cotoand  that  oar.  ehainate  valuable  ar.c  irreslacatle 
data  or  orograas  if  used  incorrectly.  Bv  now  .au  should  fee: 
coafertaoie  with  scae  of  the  ooaiands  and  vou  shouldn’t  take 
the  a: stake  of  sILLing  soaeor.e  else's  files,  or  veur  Own  sv 
accident,  renenher .  KILL  does  just  what  it  savs.  it  f.uLs 
:.'.es 


I'rS:  EJlTE?  t:  learn  about  the  KILL  toasand' 


Introduction  4  KILL  .cant) 

*he  fonat  -or  the  *'!LL  coasand  is: 

•ou  eust  e'olose  tr.e  tiienase  in  dictation  jams. 

The  extension  is  or i v  needed  when  the  oricinal  file  nao  one. 

"nee  this  cosaand  is  entered,  the  file  will  be  reaovsc  unless 
o-otsetei  oassweros  -  vou  can  .earn  iSCJt  jasswords  *rcs 
•our  i.sten  oanual).  if  the  *ile  u  reeoved.  tne'e  is  verv 
Little  -onar.ee  of  recovering  anv  of  .cur  data.  In  saae  cases 
an.  advsr.csd  o'ocraaaer  :an  'efieve  data  fro®  a  killed  tile 
b.t  the  o.'ooess  is  oirficuit  and  often  fails.  BE  CAREFLi 


.5 


COUNTER  variables 

learning  about  loaas  is  to  understand  COUNTS 
~ZF  a  a  variable  tr.at  is  uses  to  tee:  tract 
ues  a  orosrao  executes  a  line.  It  is 
unction  ait1"  an  I?  THEN  statesent.  ‘or 


COUNTERS  .cant* 

If  vaur  orient  e»er  gets  nunc  ce.  .eu  eav  nave  to  tvge 
•  CCNTRCL  c’.o*  C?H  ar  Cramco.1.  or  < BREAK;  uf  735-90* 

In  scae  ex tree#  oases.  v-;_  r.av  ha.e  to  reset  toe  svstea. 

Qn  the  TSS-SO.  tne  :ESET  option  is  the  red  rscESsed  button  or. 
the  ocoer  roc r. t  :l  .z or  *e*toer3  ilefi  rear  of  using  a  MODEL  I; 
CAUTION.  if  -ou  are  usina  this  oro-graa  an  a  iso! to -user  svstet. 
such  as  C'oaeaca  Svste*  II.  50  NOT  RESET  the  svstea.  let  the 
coerator  he! a  <ou  fix  the  oracles.  If  vou  are  using  a  single 
user  s-.stei.  such  as  a  TSS-30.  then  RESET  Mill  work  as  an  exit 
fras  the  lacked  uo  oragras  but  tr.  -.BREAK;  first:.  I-  vou  use 
either  RESET  ar  •  CGN7S0U  C.  the  svstea  will  take  vou  to  the 
COMMAND  scae.  ant  *cw  will  have  to  re-iritoati:e  BASIC. 


ate*  is  the  COUNTER.  -ariacle  in  this  oregraa' 

*  0  1 
ZC  >=c 
30 

-o :  >.  then  :  =  : 

50  !*!=!  THEN  ST3? 
fcO  RR.iNT  3 
’*)  SCC  30 
SC  END 

A  I  os  the  COUNTER 
E  1  os  the  COUNTER 

C  SG3.H  are  COUNTERS.  Out  I  will  control  tne  cr-oars* 

aress  the  letter  oooosite  the  correct  answer  and  cress  ENTER'  S 

C3R3ECT  -  that  snows  acac  understanding  c*  the  aroacoBle' 


*****  Listing  at  Procraa  'LESSG.WTX7’  ***** 


10  1=0 

1)  t=t*l 

30  PRINT  X 

40  I F  X  =  3  5CTQ  i(i 

5’0  S3  TO  2'j 

oO  END 


1C  FOR  X  =  !  ta  S 
30  PRINT  » 

30  NEXT  X 
40  END 


Tr.e  IF  statesent  in  line  40  at  the  COUNTER  laa a  determines  it 
has  reaches  3.  This  was  scr.e  autoaatxcallv  tv  the  FOR  NEXT 
loot  because  the  last  value  m  line  1C  was  soecifiea  as  3. 
uine  30  at  the  FOR  NEXT  loco  is  the  saae  as  the  UNCONDITIONAL 
SOTO  in  line  SC  ct  the  COUNTER  lacs.  The  NEXT  x  statement 
INCREMENTS  X  and  sends  centre!  tt  the  FOR  statesent. 

In  this  case  control  ooes  to  line  10 . Dress  ENTER? 


10  FOR  X  1  t value  tl>  to  'value  40; 

CO  PRINT  X 
30  NEXT  X 

In  5Ji*ar».  the  FOR  X  *  'value  it;  to  lvalue  421 
causes  the  variable  X  to  oe  .mtiailv  set  at  value  41. 
ano  the  crogras  executes  the  rest  lines  until  it  reaches  the 
NEXT  t  statesent.  ;'X  ;s  as  e..asoie.  anv  VARIABLE  noriss:.  The 
NEC  statement  causes  an  UNCONDITIONAL  50TC  to  the  FOR  state- 
tent.  The  .ariai.e  is  ;r:-eaen*EC  ar.c  the  FOR  aero  tests  to 
sss  ;♦  it  EXCEEDS  .slue  43.  IF  it  dees,  then  control  oasses 
to  the  statesent  that  folios  the  NEXT  statesent. 

1-  there  are  no  state-rents  oassed  the  NEXT  »oro.  the  orooras 

areas  ENTER" 


FOR  NEXT  leant.1 

This  concludes  the  initial  FOR  NEXT  section.  You  should  under 
stand  »h at  a  snole  FOR  NEXT  state-sent  does.  It  vou  do  not. 
«ou  mil  be  given  a  chance  to  retie*  this  section  he»o re  you 
go  on.  But  fcetcre  that  -  SUIT  tiae: 


areas 


*****  Listing  of  Prograa  ! LE3S0N3/TXT'  ***** 


07/11/83 


73;  55 


4 

3 


alucn  of  the  following  craqrass  saae  the  above  list"1 


A  10  FGF;  1=1  TO  3 

C  to  FOR  !  =  1  TC  4 

:a  print  m 

20  PRINT  1*2 

30  NEXT  X 

30  NEXT  I 

3  10  X=Kel 

3  10  1=2+1 

20  on  at  1*2 

20  ormt  2*2 

30  IF  ,(=3  THEN  GOTO  10 

30  IF  2=4  THEN  STOP 

40  GOTO  10 

40  GOTO  10 

cress  the  letter  osocsite  the  correct  choice  and  cress  ENTER?  A 


CORRECT 
Dress  ENTER? 


The  NEXT  statement  is  the  ease  as  an  UNCONDITIONAL  BRANCHING 
Stateaent.  It  branches  to  the  nest  line  oncer  the  FOR  state- 
sent. 

Is  the  caracraon  abo-.e  TRUE  cr  FALSE'' 

A  TF:UE 
B  FALSE 

ENTER  the  letter  aoocsite  the  correct  answer’’  A 

H»:nG  -  the  NEXT  stateier.t  is  UNCONDITIONAL,  but  it  branches 
tc  the  SANE  line  as  the  FOR  statesent.  It  also  incre¬ 
ments  the  variacle  before  the  C3R  statesent  tests  it. 


cress  EN'ER' 


-C" 


fMM  Li sti rc  of  Pregru  'LESS0N3/TXT'  »»*** 


07,11/8..  -  OllocltS 


Which  do  you  msn  to  do7 


A  Continue  on 

S  fie.ien  this  section  again 

orese  the  letter  oooosite  the  correct  ansuer  and  cress  ENTER'  A 


Advanced  FOR  NETT 

10  FOR  X  =  *  TC  10  STE?  2 
20  PRINT  X 
30  NEXT  X 

Sues  us: 


Interesting,  isn't  it’  .  Dress  ENTER  Tor  an  ecclanatxan? 


Advanced  FOR  NEXT 


1C  FOR  X  =  1  TO  10  STE?  2 
20  PRINT  X 
33  NEXT  X 

'he  STEP  word  in  the  FOR  statement  caused  the  value  of  x  to 
te  incremented  tv  2  instead  of  1.  The  cutout  of  1.3.5. 7. 9  xas 
correct  tecause  the  NEXT  stateaent  is  the  stateaent  that 
actually  ir.creeents  the  value,  sc  the  first  tue  throuch. 
x  uas  eoual  to  1.  the  nest  tme  through  it  uas  eoual  to  3,  etc. 


3rs£S  EftTEF'.1' 


*****  Listing  of  Pregra.1  ’IE3SQN3/TXT'  me* 


07/11/33  -  01 


Advanced  FOR  NEXT 

10  FOR  X  =  10  to  1  S7E?  -2 
20  PRINT  X 
30  NEXT  X 

Sues  us: 

10 

3 

3 

i 


oress  ENTER  for  exolanation'1 


10  C2F:  X  -  10  to  1  STEP  -2 
20  PRINT  x 
20  SETT  1. 

Ir,  this  case,  «e  STEFoed  DQkN  instead  of  uo.  Notice  that  the 
first  value  of  the  FCP,  statesent  is  the  largest  value.  It 
«ould  not  .sale  sense  to  ssecifv  a  negative  STEP  and  give  the 
'ange  of  a  oositive  STEP.  For  enaaole: 

10  f:s  t  -  1  to  10  STEP  -1 

This  doesn't  lake  sense,  and  aould  not  Mork. 

Cres5  ENTER'1 


You  sav  include  a  f0R  NET’  stateaent  Mithm  another  FOR  NEXT 
stateeent.  If  /cu  do.  it  is  called  NESTED  looomg. 

For  e.ajole: 

npR  <  s  l  TO  2 
20  PDF:  Y  =  I  TD  2 
30  PRINT  x.r 


•'3 


♦m*  Listing  of  Progras  'LESS0N3/TXT'  ***** 
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40  NEXT  V 
50  NEXT  X 

Before  we  exolam  the  cutout,  do  you  see  hot*  we  indented  the 
stateaents  within  the  first  loop,  and  then  further  indented 
the  statesents  within  the  second  loop?  It  aakes  the*  easier 
to  understand  land  explain). 

cress  ENTER  for  output’ 


Advanced  FOR  NEXT  (NESTED  LOOPS! 


10  FOR  X  =  1  TO  2 

oo  for  y  =  :  to  2 

30  PRINT  X.y 

40  NEXT  i 

50  NEXT  X 

Tr.  to  figure  how  the  progras  oroduced  the  colusns  above  it 
and  then  press  ENTER' 


13  FOR  X  -  1  XQ  0 
00  FOR  r  =  1  TO  I 

*0  PRINT  X.Y 

40  NEXT  t 

50  NEXT  1 

On  the  first  case  through  the  orooraa.  the  FOR  NEXT  1  doc  for 
1  was  set  up.  and  control  cessed  to  the  lines  between  FOR  X  - 
1  to  2.  and  NEXT  X,  Those  lines  hacoened  to  be  another  loco 
with  the  variable  '!  as  the  FOR  NEXT  variable,  Wien  the  1  FOR 
NEXT  executed  the  first  tiae.  X  was  eoual  to  1  and  1  was 
ormtea  twice,  once  as  a  1  and  once  as  a  2.  Mhen  the  1  looc 


**«*»  Listing  of  Prograa  ' LESSCN3/T XT '  **♦♦* 


07/11/33  -  01:33:35 


finished,  the  NEXT  x  stateient  caused  control  to  GOTO  line 
10  again,  'he  process  was  reseated,  hut  X  non  was  ecual  to  2. 

oress  ENTER’' 


10  FOR  t  =  i  TO  2 
20  FOR  1  =  1  TQ  2 

30  PRINT  X. y 

40  NEXT  / 

50  NEXT  X 


Can  vqu  figure  it  out  now'  Think  ahout  it  and  then  press  ENTER’' 


1C  FCR  »  =  ;  T2  2 
20  FOR  v  =  1  T3  ; 

30  °R!NT  X.< 

40  NEXT  y 

50  NE:7  x 

The  sost  cseaon  eistake  that  srcgraar.ers  sake  when  using  nested 
loess,  is  itslaheima  the  NEXT  statetents.  Notice  that  the 
NEXT  stateaent  tor  the  V  variable  is  placed  before  the  NEXT  X 
statesent. 

press  ENTER"' 


The  ;cr«at  fcr  nesting  loops  is: 


LG3F  1  .fcr l 

L02P  3  for) 

LOOP  3  (for 1 


-i>. 


mt*  Listing  of  Prcgraa  ' LE33QN3/ TXT '  m« 
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lOGP  3  (next! 

LOOP  2  (next) 

."OP  1  (next) 

‘1st ice  that  vou  east  tack  out  of  a  nest  in  reverse  order, 
oress  ENTER' 


!s  the  to! lining  prograa  valid' 

10  CQR  X  =  1  to  200 
30  FOR  2  =  1  to  2 

30  PRINT  Ul 

iO  NEXT  Z 

50  NEXT  1 

a  YES  it  is  a  good  nroqrai 
8  NG  it  is  nat  a  valid  araqra* 

ENTER  the  letter  aoaosite  the  correct  answer" 

WRONG  -  the  carrect  answer  is  A.  There  is  nothing  wrong 
with  the  oroqraa. 
oress  ENTER' 


3ive  the  first  statesent  of  a  FOR  NEX ;  loao,  that  will 
cause  the  1  cos  to  increment  the  variable  I  fro*  one  to  20  m 
steos  of  2.  Use  10  as  .our  line  nuaber  and  leave  or.e  soace 
between  all  words,  rmabers.  ana  variables. 

ENTER  voar  answer' 

WRONG  -  the  answer  is: 

M’  FOR  I  *  1  IS  20  STEP  2 

press  ENTER ^ 


*****  Listing  of  Prograe  'LES5QN3/ TXT '  ***** 
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U  the  Allowing  orogra*  valid'* 

10  P3R  t  =  !  70  2 
:0  FGS  1=1  13  3 

30  PRINT  ‘This  is  the  last  ouestion’1 

40  NEXT  I 

50  NEXT  1 

A  yes,  it  is  valid 
8  No.  it  is  not  valid 

ENTER  the  letter  ocoos2te  the  correct  answer 1 

•R5N5  -  the  orograi  is  valid 

cress  ENTER'* 


Peaeiter  in  the  beginning  of  this  section  when  we  sentioneg 
the  orGarai  that  oroduced  three  coining  ot  figures.  the  first 
co'.usn  was  integer  l  through  3,  the  second  ccluin  «as  tne 
sauare  of  the  ;irst.  and  the  third  the  souare  of  the  second-' 
Think  iGu  can  figure  cut  new  we  did  it* 


cess  ENTER  for  the  answer" 


*) 

7 

Is 

T 

•3 

3! 

j 

*t 

Jfl 

334 

c 

433 

a 

Ik 

1396 

7 

49 

3401 

3 

*4 

4096 

10  FOR  X  *  1  TQ  3 
30  PRINT  !,<*<,  (Xtxle.tmi 
37  NETT  t 


it  looks  life  child's  olav  now.  doesn’t  it" 
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oress  ENTER"’ 


Nhicn  do  vou  wish  to  da'5 
A  Continue  on 

5  Renew  this  section  again 

cress  the  letter  coocsite  the  correct  answer  and  oress  ENTER"'  A 

3oing  to  second  half  of  lesson  3  -  Sait  one  soeent 


LESSON  38 

This  is  the  second  cart  of  a  two  oart  lesson 
It  is  divided  into  the  following  sections. 

1!  Arravs  (Introduction)  3)  Suensicn  t  Clear 
2!  Arravs  A!  Test 


A  r»  tanmg  this  oart  m  its  entirety. 

S  1  wish  to  review  selected  areas.  !cr  take  the  test; 

3  1  want  to  go  to  the  first  oart. 

Z  1  want  to  return  to  the  Nenu. 

Press  either  capital  A.  8.  C.  or  D  and  then  oress  ENTER”  A 


Arravs  (Intro) 

lie  have  seen  that  variables  are  storage  Diaces  for  data,  in 
large  progress,  it  is  difficult  to  eanioulate  large  data  bases 
without  having  nuserous  variat’es  tG  assign  the  bits  of  data 
to.  However,  there  is  a  wa>  to  grout)  our  variables  into 
smiar  bunches  that  aakes  it  easier  for  us  to  tel!  what  cart 
of  the  data  base  our  .enable  beionas  to.  He  can  use 
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♦**♦*  Listing  at  Prograa  ' LESS0M3/ TXT f  ***** 

ARRAS'S, 
press  ENTER'’ 


Arrays  Sintra) 

One  use  4 or  ARRAYS  would  be  to  sake  a  training  orograe  that 
listed  the  oeoole  on  training,  their  tiae  in  the  organisation, 
ar  rank,  and  their  training  status.  He  could  group  the  eaior 
categories  maae,  rank,  training  status)  into  three  variables 
and  use  subscripts  to  arovide  a  place  for  each  entry  m  our 
data  base. 

press  ENTER'1 


Na*e 


Rank  Training  Status 


John  Doe 
Jake  Robins).; 
lark  Huff  in 


Foreaan 

Peon 

Specialist 


a 

3 


He  could  assign  subscripted  ARRAYS  to  the  three  earn  cate¬ 
gories.  An  ARRAY  has  the  following  foreat: 


Variable  (subscnot) 


The  subscnot  is  enclosed  in  oarenthesis.  Exaapies  of  valid 
ARPAr  variables  are:  NS!l),  Rt!2).  T (?) 

press  ENTER"' 


Naae 

Rank 

Training  Status 

John  Doe 

Foreaan 

g 

Jane  Robirski 

Peon 

3 
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*****  Listing  cf  Prograa  'LES30N3/TXT"  ***** 


07/11/33 


Hark  Nuffin  Specialist  5 

We  could  use  our  AftP.fi/ s  to  nold  tne  above  data. 

Us  could  use  S$(CI.  Nttli,  and  Ntf2f  to  indicate  the  three 
naaes,  R$(0),  S$(l),  and  S* ' 2 :  to  indicate  the  three  ranks, 
and  TiO),  Til!,  and  T(2i  to  reoresent  the  three  training 
levels.  Note  that  0  is  a  valid  suoscriat. 


aress  ENTER'’ 


10  N$u)>  =  "John  Dae" 

20  Ntm  *  "Jake  Robinski* 

30  M* 12)  *  “Nark  Nuffin* 

40  R*  10)  -  ‘Fareean* 

50  R4 : 1 )  -  “Peon' 

60  S$(2)  =  ’Specialist' 

’0  T'O!  =  9 
8-0  7(1)  *  3 
?C  T'2i  *  5 

100  FRINT’Naee  Rank  Training  Status" 

110  PRINT 

120  PRINT  N$(01.R*I0).T!0) 

130  PRINT  N< i  1 ) , ftt ( 1 ) . T ( 1 i 
140  PRINT  N4(2!.fil(2».T!2> 

This  prcgraa.  when  RON.  would  arint  our  data . areas  ENTER" 


Naae 

Rank 

Gaining  Status 

John 

Doe 

Foreian 

Q 

Jake 

Robinski 

Peon 

N* 

lark 

Nut  fin 

Specialist 

C 

This 

is  what  that  orogra*  would  outaut. 

Notice  that  we  have 

used 

only  three  variables. 

but  we  (tade  the*  ARRAYS  so  that  we 

could  hold  nine  bits  of  data. 

As  *e  continue  through  our  lessons,  t<e  will  discover  so«e  verv 
powerful  uses  for  fififtfi'/s. 


-  01:38:55 


366 


**♦*»  Listing  of  Progra#  ' LE330N3/TXT’  »m* 
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grass  ENTER'’ 


Is  the  following  ARRAY  and  its  subscrict  valid'1 

Aid 

A  TRUE 
8  FALSE 

ENTER  the  letter  oogosite  the  correct  answer'1  B 
WRONG  '  the  correct  answer  is  A 
oress  ENTER’’ 


Which  do  vou  wish  to  do” 

A  Continue  on 

?  Review  this  section  again 

cress  the  letter  Gooosite  the  correct  answer  and  oress  ENTER'’  A 


ARRAY  s 

If  “u  have  a  little  satheeatics  in  vour  background,  vou  will 
have  noticed  that  ARRAY®  are  aliost  the  $a*e  as  their  »ath 
eouivalent.  eiceot  that  the  subscriots  are  in  oarenthesis 
instead  of  slightlv  lower  and  to  the  right  of  the  variable. 

The  orevious  eraaoles  all  dealt  with  a  ONE -DIMENSIONAL 
ARRAY .  That  is.  there  was  onlv  one  nmber  m  oarenthesis 
that  was  significant.  ARRAYS  with  TWO,  THREE.  FOUR,  or  sore 
dieensions  are  oossible.  Most  dialects  of  BASIC,  including 
Microsoft,  will  handle  at  least  3  dieensions.  An  evaeole  of  a 
rWC  di*ension  ARRAr  would  be  NC.2).  Notice  that  the  extra 
ditension  was  designated  bv  just  adding  another  subscriot  in- 
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07/11/83  -  01:33:55 


side  the  parenthesis.  A  THREE  DIMENSIONED  ARRAY  looks  like 
this:  R'2,1.9!  or  T*(5,44,3l  (or  any  coebmation  of  nuabers) 
oress  ENTER? 


10  FOR  I  =  1  TO  2 
20  FOR  y  =  t  TO  2 

30  READ  Ad. 7) 

40  PRINT  AU.Yi; 

50  NEXT  Y 

60  NEXT  J 

7 5  DATA  5.10.15.20 

The  above  orograi  coabines  several  of  the  techniaues  that  we 
have  been  learning.  Before  «e  tell  von  the  answer,  trv  to 
figure  out  what  the  cutout  of  the  orogra®  would  be.  Ne  warn 
vou.  it  is  a  little  tnckv.  but  see  if  vou  can  figure  it  out, 

oress  ENTER-1 


10  FOR  I  *  1  TO  2 
IC  FOR  Y  =  1  TO  Z 

30  READ  AU.il 

40  PRINT  Ad.  ri; 

50  NEXT  r 

60  NEXT  X 

70  DATA  5.10.15.20 
5  10  15  20 

This  is  the  outout.  Lines  10  and  20  are  nested  FOR  NEXT  looos. 
Kiev  set  uo  the  READ  stateaent  in  line  30  so  that  it  will  READ 
in  the  values  that  are  m  the  DATA  stateaent  and  assign  the 
current  J.Y  subscriot  to  it.  Values  are  read  m  one  at  a  tiee. 
oress  ENTER-1 
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*****  Listing  of  Proqraa  ’LE5SQN3/TXT’  ***** 


10  FOR  t  =  :  T0  2 
20  "2R  i  -  1  TO  1 

30  READ  A(X.n 

4-J  PRINT  AtX.Y)  i 

50  NEXT  Y 

40  NEXT  1 

70  DATA  5.10,15.20 

On  the  First  pass,  X  -  1  and  Y  =  1.  A(!.!f  therefore.  equals  5 
The  seei -colon  on  the  end  of  the  orint  statesent  causes  the 
nuabers  to  he  or:nted  side  hv  side  instead  of  on  seoarate  lines 
and  thev  ail  have  one  soace  hetneen  the*,  (caused  hv  the  ’i-! 

2n  the  second  iteration  of  Y,  Y  will  equal  2  and  X  =  1.  All. 2) 
Hill  eaual  10. 

cress  ENTER-1 


•  a  cnr.  y  „  «  rri  n 

.  J  A  -  i  i. 

20  FOR  Y  *  1  TO  2 

30  READ  AU.Y) 

40  mHT  A'UU 

50  NEXT  Y 

so  NEXT  1. 

70  DATA  5.10.15.20 

iihen  the  second  iteration  of  Y  is  done,  control  will  oass  to 
line  10  and  X  Hill  begin  ITs  second  iteration.  The  Y  loop 
Hill  start  ail  over  again  ar.d  mhen  line  30  is  executed  (3rd 
ties/.  A(2.!i  Hill  eaual  15.  Finally.  Y  *il!  execute  for  the 
fourth  ties  (second  tiae  anile  X  =  2).  and  AU.Y)  Kill  have  all 
nusbers  in  the  DATA  stateaent.  and  the  numbers  ai!l  have 
brmted  out. 

cress  ENTER-1 


Y 


I 
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1.  !  5  !  10  I 

1  ! . I - 1  ARRAY  A a.1) 

2.  ’  15  I  20  1 

! . I - 1 

Another  »av  to  look  at  the  ARRAY  is  to  visual ite  it  as  shove. 
The  ARRAY  has  tour  at  its  sockets  loaded  Ue  ignored  the  0 
Dockets  so  the  eialanation  aould  oe  siseler.  Thev  are  still 
there,  thev  are  just  not  used:  When  A'X.ti  =  10,  X  »ust  egual  1 
and  y  nust  eaual  2.  Oo  vou  see? 

oress  ENTER"' 


y 

1.  2. 

1 . ! - 1 

1.  i  5  i  io  : 

t  1 . 1 . 1  ARRAY  au.y: 

2.  I  15  I  20  1 

i . i — : 

If  a  value  of  one  of  the  sockets  of  arrsv  A :  i .  V :  ecuals  15. 
ahat  are  the  values  cf  x  a  V  that  aculd  reference  that  socket? 

A  1=1.  :  = 

E  x=i .  y=2 

:  1=2. 

3  x=2.  f=2 

ENTER  the  letter  oooosite  the  correct  anstier” 

WRCNS  -  the  correct  ansaer  is  C 


oress  ENTER"' 


*****  Listing  ot  Frcgra*  ' LESS0N3/TXT'  ***** 

2.  I  15  I  20  1 
I . I - 1 

If  i  -  1  and  Y  =  1 ,  what  value  is  in  the  packet  pointed  to  0v 
ARRAY  Ail.YP 

A  10  B  15 

C  20  3  5 

ENTER  the  letter  cooosite  the  correct  answer , 

KRONE  -  the  correct  answer  is  D 
press  ENTER? 


< 


1. 


i . 1 . 1 

1.  1  5  1  SO  1 

1 . 1 . 1 


15  1  20  1 
—j - r 


ARRAY  Ait.;! 


The  FIRST  subscript  m  an  ARRAY  ALWAYS  indicates  the  ROws  of 
3ATA.  and  the  SECOND  subscript  indicates  the  COLONNs  of  data. 
Therefore.  ARRAY  Alt.;)  nas  <  rows  and  Y  celuens.  You  will 
find  that  once  <ou  visualize  a  t«o  aisensiona.  ARRAY,  the 
ethers  will  cose  suits  easiiv. 

dress  ENTER* 


<ih;ch  i.  vou  wish  to  dc-' 

A  Continue  :n 

5  Renew  this  section  again 


the  letter  opposite  the  correct  answer  and  cress  ENTER*  A 


*****  Listing  of  Prcgras  ’LESSGN3,  TXT’  ***** 


07/11/33  -  01:38:55 


Disension  \»  Clear 


Whenever  vou  use  an  ARRfiy  in  BASIC,  the  processor  has  to  safe 
rcoa  tor  all  the  ettra  aescrv  sockets  that  you  mil  use. 

Us  to  a  lint.  the  aachine  can  handle  u.nekoectefl  ARRAts.  tot 
after  vou  designate  sere  than  10  sockets  or  3  disensions.  the 
coaouter  sust  kn.au  ahead  of  tiae  so  :t  can  reserve  enough 
space.  The  «av  veu  tell  the  cosouter  to  use  an  ARRAV 
aith  at  least  one  subscript  bigger  than  10  or  aith  sore  than  3 
diaensions  to  it  lie  N>. 3.3.3.31;.  vou  use  the 
Bill  statesent.  Dill  stands  for  DINENSICN.  and  it  oust  be 
used  before  the  ARRAV  is  used,  and  it  cannot  be  changes  once 
the  prograa  is  RJNnmc. 

press  ENTER” 


• «».«  c  < 2 ) 

::  -CR  X  =  1  TC  12 
READ  BU! 

4y  NEXT  X 

50  DATA  5.10. 15.20. 25.30. 35.40. 45. 50,55. 40 
a0  FGS  X  =2  TO  12 
70  PRINT  BUS : 

30  NEXT  I 
RuN 

5  10  15  20  25  30  35  40  45  50  55  60 

The  DIN  statesent  told  the  cosputer  that  12  sockets  aere  needed 
and  the  READ.  SATA,  and  PRINT  statesent*  filled  the  ARRAY  and 
printed  it  cut. 

oress  EN'ER” 


Di sens ion  and  Clear 


Another  oroble*  the  cosouter  has  mi th  sesorv  allocation,  is 
reser.mc  enough  roos  ter  STRING  space.  For  every  letter  in 
a  STRING,  the  BASIC  processor  sust  use  a  little  o*er  She  sesorv 


it  a. 


*****  listing  of  Progra*  'LES33N3/TXT'  ***** 


location,  it  oust  be  able  to  find  the  letter  once  it  stores  it 
so  it  uses  one  location  to  store  the  letter,  and  snathe'-  to 
reeled  it  where  it  out  the  STRING  m  the  first  pi  ace 1 ) 

Un like  ruaher  variables.  STRINGS  can  use  io  to  255  characters 
oer  line  (nuabers  seldoe  use  sore  than  4  -  the  reason  is  rather 
technical,  you  aa*  wish  to  loci  uc  hew  data  is  handled  i. it  em¬ 
ail*  8v  the  coaouter  in  a  reference  cook).  If  you  are  going 
to  use  More  than  53  characters  worth  of  STRING  soace.  von  aust 
CLEAR  acre  r;o*  for  it.  The  clear  statesent  actually  HIRES  OUT 
data  soace  and  reserves  u.eiorv  locations,  so  it  oust  ALWAYS  be 
the  first  stateeent  if  vou  are  going  to  need  it. 

oress  ENTER'' 


Diaension  and  Clear 


If  you  use  the  CLEAR  stateaent  m  the  aiodle  of  a  orogra*. 
the  eccLBuietion  of  data  that  you  have  stored  m  -anaoles  to 
the  coin*  that  the  CLEAR  word  was  used,  will  oe  zeroed  out. 


iV  ulL“" 

30  -F INI  1 
RUN 


Do  vou  see'  The  CLEAR  word  zeroed  on  »’ . oress  ENTER 


10  CLEAR  I00C 
DC  DIN  3 - 50 i .  All  1001 
33  '3ft  S  =  1  TO  100 
-0  READ  At! I! 
. sto. 


The  above  shows  the  first  4  lines  of  a  orograa  that  is  ooing 
to  jse  nore  :han  1000  soaces  of  string  soace  !that  will  give 
an  average  of  10  letters  oer  oocket  of  AKIM  and  is  ooing  to 
use  50  pockets  of  the  miser i:  arrav  3.  note  that  vou  alw«»s 
get  oo:: et  3  rcr  free,  it  is  norcall,  r.ot  used! 


*****  Listing  of  Frogra*  ' LE35QN3/T XT'  ***** 


Notice  the  position  of  the  CLEAR  ana  DIM  ststeaents. 
cress  ENTER" 


ilhat  will  he  the  output  of  the  following  progras" 

10  At  13-  =  5 
CLEAR 

30  PRINT  A,  13) 

A  0  Pecause  the  clear  statsaent  it  in  the  wrong  place. 
5  5  -  the  clear  statesent  only  affects  STRINGS. 

C  Nothing  tecause  SI  13;  mil  cause  an  ERROR 
ENTER  the  letter  opposite  the  correct  answer" 

SRGNS  -  C  is  the  right  answer 
cress  ENTER'1 


The  CLE-P  word  is  used  to  clear  storage  soace  for  strings, 
it  also  moss  out  other  seta. 


A  TRUE 
5  FALSE 

ENTER  tr.e  letter  occosite  the  correct  answer"  A 
CORRECT  -  GcooooooooooOCOOOOCGOOOQOOOOQOD  JOB1 
press  ENTER" 


As  a  reamder.  the  DIN  statement  does  not  create  the  ARRAN . 
on 2.  defines  its  sice.  It  aav  he  used  to  MINIMIZE  storage 
space  L.  desicratmc  SRRAfs  that  are  lESS  than  That  w* 


r  AD~A,-34  386  COMPUTER  ASSISTEO  INSTRUCTION  IN  BASIC(U)  AIR  FORCE 
1  INST  OF  TECH  WRIGHT- PATTERSON  AFB  OH  SCHOOL  OF  SYSTEMS 

AND  LOGISTICS  D  J  CREAGAN  28  SEP  83  AFIT-LSSR-29-03 

F/G  9/2 


UNCLASSIFIED 


*****  List:na  at  ,-rocraa  'LESSON'/ TXT'  *****  57 


the  coaouter  nil!  net  autosaticallv  reserve  aore  soace  than 
neecea.  Tor  exaaole: 

to  din  A'.:,:: 

This  would  be  a  valid,  and  leacrv  conservms  stateaent.  The 
orGcesscr  wouldn’t  reser.e  a  10  X  10  socket  ARRAY  for  A!X.x>.  it 
would  onlv  reserve  a  2  >.  2. 

Dress  ENTER? 


What  is  wrong  with  this  orograa? 


10  CLEAR  1500 
20  DIN  A<2> 

30  A ’2)  -  5 
40  PRINT  Ai2; 

A  The  DIN  stateaent  is  m  the  wrong  olace. 

B  The  CLEAR  stateaent  is  invalid. 

C  Nothing. 

ENTER  the  letter  cecosite  the  correct  answer'1 
WRONG  -  the  correct  answer  is  C 
Dress  ENTER"1 


vlhich  do  ;ou  wish  to  do' 

A  Continue  on 

3  Review  this  section  again 

oress  the  letter  oooosite  the  correct  answer  and  aress  ENTER'  A 


TEST 


♦♦♦**  listing  o*  Pro ora*  ‘LES30M3/ TXT'  ***** 


07/11/83  -  01:33:55 


you  have  coaoleted  this  lesson.  ENTER  a  ’C'  to  Continue 
to  the  TEST  or  ENTER  an  ’R’  to  start  over. 


ENTER  vo ur  choice'1  C 


FINAL  TEST  (lesson  3) 

This  test  consists  of  10  Questions,  you  aust  get  70  oercent 
or  thea  correct  to  oass.  (that’s  7  right  out  of  the  10  ques¬ 
tions).  Use  onlv  caoital  letters  in  vour  answers,  don’t 
include  extra  soaces  or  letters.  GOOD  LUCK 

oress  ENTER  to  continue? 


illi!  ch  of  the  following  is  valid: 


3  KILL  SLEAZY 
C  UNSAVE  "SLEAZY* 
D  UNSAVE  SLEAZY 


ENTER  the  letter  opoosite  the  correct  answer’’  A 

CORRECT 

cress  ENTER” 


Does  the  FOR  NEXT  coefcination  have  to  he  used  to  set  up  a  !cgo? 

A  YES 
3  NC 


ENTER  the  letter  cooosite  the  correct  answer”  3 
CORRECT 


oress  ENTER” 


*****  Listing  of  Prograa  ’LESSONS/ 7 XT’  ***** 


07/11/2:  -  01 


Write  nut  the  -first  line  of  a  FOR  NEXT  loop  using  I  as  the 
variable,  start  the  looc  at  1  and  end  it  at  5.  use  a  STEP  of  2. 
Use  line  nueber  50.  Use  all  caos.  leave  one  soace  between  all 
teres. 

ENTER  vour  answer" 


KRQN6  -  the  correct  answer  i s  50  FOR  1=1  TQ  5  STEP  2 
See  cart  1,  FOR  -  NETT. 

prsss  ENTER0 


10  FOR  t  s  i  TQ  5  STEP  2 
20  PRINT  U 
30  NEXT  l 
R'JN 

ENTER  the  outout  fro*  this  prograa.  leave  one  space  between 
terss.  (hint:  be  sure  to  consider  the  seai-colon  in  line  201 

ENTER  vour  answer"  1  3  5 

20RRE2T 

press  ENTER" 


Row  aanv  pockets  (or  elesentsi  can  an  atrav  have  without  a 
DIN  statesent" 

A  1C  not  counting  the  0  ele*ent 

S  11  net  counting  the  0  elesent 

C  3  not  counting  the  0  e!e*ent 

S  4  not  counting  the  0  eleaent 

ENTER  the  letter  oooosite  the  correct  answer"  A 


f 


Listing  oi  Proaras  'LESSONo.'ftr  ttttt 


07/11/33  -  01138:55 


CORRECT 
cress  ENTER'7 


i 


Hot  sanv  oacfcets  are  there  m  a  2  1  3  arrays 
ENTER  vour  answer?  6 
CORRECT 
cress  ENTER? 


Ha*  sanv  RONS  aces  the  following  array  h.a/e? 
R(!0,5) 

ENTER  vour  answer’  10 

CORREC 

cress  ENTER’ 


Sees  the  foliating  arrav  need  to  be  DlHensicned'1 

ENTER  YES  or  NO’  fES 

esme: 

oress  ENTER.'1 


I 


I 


which  of  the  foil  awing  is  valid 


*73 


j 


07/11/53  -  01:33:55 


*****  Listing  of  Prooraa  'LESSQN3/T1T’  ***** 


A  Alii) 

5  ihlll 
C  At  t AS. _ j 
3  (A)  (1.3H 

ENTER  the  letter  coscsite  the  correct  answer’  A 

CORRECT 

trees  ENTER" 


The  CLEAR  statesent  is  used  for  clearing  STRING  soace  and 
AIXAVs  oust  he  used  if  veur  STRING  use  is  greater  than  100 
hut  doesn't  have  to  he  used  if  vour  STRING  Kill  he  LESS  than 
100  characters. 


Is  the  above  Question  TRUE  or  FALSE? 

ENTER  TRUE  or  FALSE’  T8UE 

KRGNG  -  the  correct  answer  is  FALSE 

CLEAR  stateaent  is  for  clearing  anv  soace  sore  than  50 
and  it  also  initializes  nuieric  variables  to  0. 

See  oart  2.  CLEAR. 

oress  ENTER’ 


Y ou  have  *inished  the  test,  out  of  10  oossihle  correct  answers 
vcu  scored  3  . 

YOU  HAVE  PASSED 

YOU  NEED  INPROVEflENT  IN  THE  FOLLOWING  AREAS: 

oart  1.  lOQRs 

cart  C.  CLEAR  stateaent 


oress  ENTER" 


*****  Listing  of  Proqras  ' LE5SQN3/ TXT'  ***** 

3o  *ou  want  your  scare  recorded  or.  a  oersanent  file"’ 

A  res 

9  NO 

Which?  9 

fou  are  now  sualified  to  co  to  LESSON  4. 

If  you  want  a  fiosework  assignment,  seiect  it  now, 

Do  vou  want  to  see  vour  hoaewcrf  !V,'N P 

Break  in  3720 
Beady 

SfSTEK’teSSlTfBO 


mt*  listing  at  Progras  ' LESSON**/ TXT '  **»»* 


07/11/3:  -  o:: !3:oi 


TRSDQS  Ready 

BASIC 

BASIC  01.30.00  for  TRSDQS  Version  4 

Ceoyngnt  (cl  1733  6v  Microsoft,  licensed  to  land v  Coloration. 
All  rights  reserved. 


Ready 

f?L'N“L£SS0N4 


LESSON:  SASIC  4  VERSION:  I  AUSL'ST  3: 

TIKE  REQUIRED  TQ  COMPLETE  LESSON:  About  1.5  hours 


AUTHOR:  Caot  Oar.nv  J.  Crsagan 

Air  Force  Institute  of  Technology 

OBJECTIVE:  To  teach  the  student  non  to  sake  the  coaoeter 
cossumcate  with  standard  oerionera!  de.ices. 


cress  the  ENTER  key  to  continue"' 


LESSON  4 

*his  is  the  first  aart  of  a  two  oart  lesson.  It  is  divided 
into  the  following  sections.’ 

1.  Introduction  Z>  Seouential  Files  Intro. 

3;  yPSIST  V  LUST  4)  OPENmg  files 


A  I's.  taking  this  oart  in  its  entirety. 
B  wish  to  review  selectee  areas. 

C  I  want  to  go  to  the  second  oart. 


*****  Li stino  or  Prograa  ’LESSQN4/7;;  ***** 

D  I  want  to  return  to  the  .1E.NU. 

Press  eitner  caoitai  A,  S.  C.  or  D  and  then  areas  ENTE^  A 


Introduction 

In  this  lessen  we  will  start  learninq  hex  to  coseu, meats  »at 
oar  disk  drives  and  arinlers.  The  first  section  deals  with 
orintmo  our  arograss  on  a  orinter.  we  can  either  armt  the 
cutout  lie  the  answer  that  aur  aroqras  calculated!,  or  we  can 
c’-fit  aur  arograa  listing  to  a  orinter. 

Tee  'iia'.r.n:  sections  will  show  us  now  to  store  data  on  a 
disk,  so  that  we  can  save  issertar.t  calculations  far  future 


coth  sections  are  very  ucortant  to  the  oroarasser  and  ;ou 
will  fine  .ourself  using  the*  often. 

CteSs  :h,;r. 


Introduction 

■rze  this  lesson  to  the  end  of  vour  training,  we  will  Se 
covering  areas  that  are  coaoies  and  difficult  to  reaeaser. 
'herefore.  *e  reccaaenfl  that  /cu  nave  vour  BASIE  aanual  with 
vOu  at  ail  tues.  when  we  as*  <oa  a  Quest: or. .  and  vou  are  r-o 
Sure  stout  the  answer,  LuG1'.  IT  UP  IN  Y3US  .hANL-SE.  The  answer 
will  a. so  te  ir  the  lessor.,  out  >ou  should  get  jsed  to  using 
the  sanuai.  You  cannot  Jewries  all  the  rules  m  a  few  wee.-s 
or  scoths.  So  te  sure  to  > esc  •••os.r  reference  took  hand., 
whether  .ou  are  takir.a  a  test,  or  sating  vour  own  orogra*. 

renssser,  loo* ms  the  answers  .s  not  cheat: no.  its  uEASNIh 


♦***♦  Listing  of  Proarae  ' LE3S0N4/ TXT'  ***** 


To  read  then,  the  format  for  the  CPES  statesent  is: 

OPEN  *  node;  ".Suffer  l.'-'fi’enaae)" 

If  .oo  are  GUTPUTiag  DATA  the  eode  is  'O',  if  you  are 
l.NPUTinq  data,  the  eode  is  T.  tou  can  have  uo  to  3  buffers 
van  sust  declare  anv  Duffers  over  3  *nen  sorting  mi tn  the  TRS- 
30  just  ansaer  the  SASIC  startuo  diaioo  «ith  the  correct 
nuaoer  of  files  -  3  is  the  default:.  The  filename  *ust  be  in 
quctes. 


What  are  the  t«o  file  r.odes’’ 

1NP.T  and  CliTPUT 
“I"  and  ‘O' 

1  through  4  and  4  tnrcuch  8 
Nona  of  the  above 

ESTER  the  letter  cooosite  the  correct  answer'  S 

CORRECT  -  '4 av  to  go' 

dress  ENTER' 


OPEN  statesen: 

SO  OPEN  ”1 ‘TEST’ 

CO  iMPuTdl.NS 
30  PRINT  Nt 
4.  CLOSE  I 

Here  is  an  euaisole  of  an  OPEN  stateier.t  ihne  10;  that  ooens 
a  file  for  INPUT.  Notice  that  the  *cde  is  T. 

Also  notice  that  there  is  NOT  a  coi*a  tetaeen  the  OPEN  aorg 
and  the  (NODE,  but  that  all  the  rest  of  the  te'is  are  seoarateo 


<  a  cosma. 


*****  List'.';  2$  Procrais  LESEGM4.'TTT‘  ***** 


■cress  ESTER" 


What  ;s  the  sswiticance  of  file  lodes  ’O’  ana  '!*’ 

A  ‘O'  tells  the  coaouter  that  m  ace  qoanq  to  write  to  dm 

ar.d  ’!’  tells  the  coacuter  *cu  ere  qomg  to  moot  troa  dm 

a  'O’  tells  the  :oasu:er  that  the  hies  section  is  ON  and 

T  tells  the  casauter  that  vou  want  to  INTERROGATE 

1  tells  the  ccaouter  vou  want  to  Qrqanue  files  ana  T 

telle  NASA  to  launc.h  the  shuttle. 

ENTER  the  letter  oaoosite  the  correct  answer"  A 

CORRECT 

cress  ENTER" 


OPEN  Stateaer.t 

l)  ::SN  "CM. "TEST" 

S3  INPUT* Tvoe  :n  vou r  .use  ana  oress  ENTER*;!* 

ID  PP.INT41.TS 
4:J  CLOSE 

the  cuffer  rusher  can  he  am  rusher  between  1  and  3.  If  we 
■.se  the  buffer  for  ere  file,  and  later  we  OPEN  another  file  in 
the  saae  oroqraa,  we  cannot  use  the  ease  buffer  nuaber.  It 
HL'aT  3E  I'lrFERE'U.  If  there  is  aore  than  one  file  OPEN  at 
"he  ease  tiae.  then  thev  suet  he  usmq  different  buffers'1 

oress  EN'ER" 


He*  tan/  tiles  with  the  sa.se  :uf‘er  ‘usher  car.  we  have  OPEN 
at  the  sase  t:se" 


•  ■Ta.fti 


w 


■  -~u 


*****  Listing  of  Proqras  ’LESSQfM/TKT’  ***** 


A  YES 
3  NO 


ENTER  the  letter  ocaasite  the  correct  meter'’  b 

CORRECT 

press  ENTER7 


1C  OPEN  *3*, t, ’TEST* 

20  INPUT’Tvoe  in  your  naee  end  sresa  .NTER’tTS 
30  PRINT#'.. Tt 
#0  CLOSE  1 

dhen  line  10  QPENs  the  tile  ’TEST’,  the  coaouter  searches 
available  disk  £3ace  to  see  if  the  file  already  exists.  I?  IT 
DOESN'T  EI13T,  THE  COMPUTER  KILL  CREATE  IT  AUTOMATICALLY " 

(this  is  cnl t-  true  for  the  OUTPUT  ande.  if  INPUT  aode.  the  file 
aust  ha.e  existed  previous! v  or  SASIC  mil  print  an  ERROR/ 

REMEMBER  ALSO,  unless  voa've  CLOSED  a  file  that  has  previously 
peer,  coer.ec.  »ou  cannot  use  the  buffer  nuacer  again  ' 

2T6S-  ENTER' 


I  15  OPES  *0M. ’TEST* 

i'  20  INPUT’Tvoe  m  your  nase  and  oress  ENTER  * ; TJ 

|  30  PRINT#!, T$ 

#0  CLOSE  ! 

If  the  file  'TEST'  exists,  then  line  10  tri i I  re-ccen  it,  line 
30  All!  sfRITE  OVER  THE  PREVIOUS  DATA  IN  THE  RILE,  and  line 
AS  Ail;  CLOSE  the  file.  EVEN  IF  THE  FILE  NAS  SEVERAL  THOUSAND 
aCRDS  LONG.  AFTER  THE  ABOVE  PROGRAM  IS  RUN.  IT  NILL  OKLt  BE 
AS  LONS  AS  THE  NAME  THAT  NAS  ENTERED  IN  LINE  20'  1 

Sequential  files  ®ust  be  loaded  into  aeaorv.  sanioulatec  and 
‘.her,  written  baoi:  out  in  their  entirety.  »ou  cannot  :ust  write 
a  single  record  onto  the  front  of  the  file  that's  or.  the  disk. 


:?# 


07/11/83  -  02113:01 


1 


f»m  Listing  of  Rrccraa  'LESS3N4/TKI’ 


07/11/83  -  0 


Dress  ENTER" 


Write  in  the  stateaent  that  will  OPEN  a  file  far  OUTPUT  to  disk 
and  use  buffer  nuafter  3.  The  filename  is  THIS 

Do  not  use  a  line  nuaher  (although  vcu  mould  norsallv).  and  do 
NOT  out  in  ANY  blanks. 

ENTER  vcur  answer  " 

WRENS  -  this  section  is  difficult  to  visualne  soaetiaes.  how¬ 
ever.  it  is  verv  iiportant.  You  aav  wish  to  review  it  after 
this  am:.  The  correct  answer  is:  3R£N>3*.3.*7MG‘' 

cress  ENTER" 


Wren  a  sequential  file  is  QPENed  that  forierlv  nad  vour 
training  records  in  it.  and  vou  didn’t  want  the  DATA  destroyed, 
what  lust  vou  he  sure  to  do’ 

A  Net  write  m  the  saddle  of  the  file  unless  it  is  aode  ’3’ 

B  INPUTS  all  the  data,  samoulate  it.  then  PRINT*  it  hack  out 
0  Nothing.  »ou  cannot  OPEN  a  file  that  was  oreviousiv  created 
3  Write  onlv  or,  the  END  of  the  file 

ENTER  the  letter  ooocs’.te  the  correct  answer" 

4R3N5  -  the  correct  answer  is  B 

oress  ENTER" 


Which  do  vou  wish  to  do" 

A  Continue  or 
E  Review  this  section  again 


*****  Listing  of  Proaraa  ' LES30N4/7XT'  ***** 


07/11/83  -  02:13101 


cress  the  letter  gdecei ta  the  correct  answer  and  cress  ENTER7  A 


(cu  nave  cosoletea  this  oortion  of  lesson  4.  If  vou  wish 
to  continue  on  to  the  newt  naif  of  the  lessor,  enter  a  ’C. 
If  vou  wish  to  review  this  lesson  again,  enter  an  ’R’. 

Enter  .oar  choice  now1 


'cu  have  ccaoleted  this  oortion  at  lesson  4.  If  vou  wish 
to  continue  on  to  the  nest  half  of  the  lessor.,  enter  a  ’£’. 
If  you  wish  to  review  this  lesson  again,  enter  an  ’S’. 

Enter  vour  choice  no»" 


Vou  have  coasleted  this  oortion  of  lesson  4.  If  vou  wisn 
to  continue  on  to  the  nest  halt  of  the  lesson,  enter  a 
If  vou  wish  to  review  this  lesson  again,  enter  an  ‘S'. 

Enter  vaur  choice  new7 


Vou  ha<e  ccoolsted  this  oortion  of  lesson  4.  If  »ou  wish 
to  continue  or.  to  the  nest  half  of  the  lesson,  enter  a  ’£'. 
If  .ou  wish  to  review  this  lesson  again,  enter  an  'R'. 

Enter  vour  choice  now' 


•ou  have  coaoleted  this  oortion  of  lesson  4.  if  vou  wish 
to  continue  on  to  the  next  half  of  the  lesson,  enter  a  '£’. 
If  vou  wish  to  review  this  lesson  again,  enter  an  'R'. 

Enter  .our  choice  now'  u 


3Po 


*****  Listing  of  Progra.i  'LE3SQN4/TKT’ 


07/11/83  -  02: 13101 


Soma  to  the  second  half  of  the  lesson,  wait  one  soaent 


LESSON  4 

This  is  the  second  oart  of  a  two  oart  lessor,.  It  is  divided 
into  the  following  sections: 

1!  CLOSE  31  INPUT!  4  EOF 

2>  PRINT!  4)  SIWIARV 

5)  TEST 

A  i’3  taking  this  oart  in  its  entirety. 

3  1  wish  to  review  selected  areas  (or  take  the  test). 

C  !  want  to  return  to  the  ,1  enu. 

0  I  want  to  go  the  the  first  oart. 

Press  either  caoital  A,  B.  C  or  D  and  then  oress  ENTER7  A 


CLOSE  Stateeent 

»e  already  stated  oreviousi,  that  the  CLOSE  statement  was 
r.ecessarv  after  ,ou  were  done  oanisulatmg  vour  files.  It 
has  s  few  variations  that  are  nice  to  know. 

CLOSE  duffer  I . > 

rhe  ‘orsat  ‘or  CLOSE  is  the  BASIC  word  CLOSE  olus  an  ootional 
duf;er  nj*oer.  If  vou  include  a  duffer  nuaber.  just  that 
duffer  will  oe  closed.  If  vou  do  not  include  a  duffer  nusder 
then  ALL  the  buffers  that  were  OPEN  will  be  closed1 

oress  ENTER” 


(lines  CO  t  30  are  ocod, 


Is  the  followmo  orocraa  valid 


♦***♦  Listing  of  Proarn  ’LESSDN4/TJT’  ♦**♦* 


10  OPEN'C. 3.  'QUESTION* 

20  INPUT  At 
30  PRINT43.AS 
40  0L35E 

50  OPEN'D*. 3. “QUESTION* 

. . etc 

A  *ES  it  is  valid 

8  NO  it  ail  1  fail  Because  line  :0  OPENs  a  file  already  used 
ENTER  the  letter  oooosite  the  correct  answer’ 


KRONE  -  file  13  was  CLOSEd  dv  line  40,  so  duffer  3  could  be 
used  again  in  line  5C. 

cress  ENTER’' 


Ntucii  do  iou  wish  to  do-' 

A  Continue  an 

i  Renew  this  section  again 

c'ess  the  letter  oooosite  the  correct  answer  and  cress  ENTER' 


PRINT  I 


1.  OPEN  ,C’.1,*TEST* 

20  INPUT “Tvse  in  -cur  naae  and  oress  ENTER" ; T $ 
3.'  PRINT’!;. *1 
4;  CLOSE  1 


;•  line  2 j  we  PRINT  to  the  file  Duffer  (that  we  QPENed  in  line 
1C.’  the  variable  T$.  Notice  that  the  nua&er  to  the  right  of 
the  ?R.'NTI  corresoonds  to  the  duffer  nuaber.  If  the  duffer 
was  newer  3.  then,  after  we  OPENed  the  file,  we  would 
PRINT#;. rt  in  line  30 


*****  Us* no  of  Prcqraa  ' lESSQNA/ T XT ’  m« 


07/11/83  -  02:13:01 


PRINT  ! 

PRINT!  armts  itets  to  3  seouentul  disk  Pile.  Mies  mu  first 
CfzS  the  ■file,  the  caaauter  sets  a  coin't'  at  the  beginning 
of  the  file.  *hen  vou  tell  the  cescuter  to  PRINT!  sctetluna. 

:t  starts  anting  data  to  the  disk,  at  the  olace  where  the 
ouster  is.  At  the  end  of  the  PRINT!  eoeration.  the  cointer 
ad. antes,  so  .aiues  are  written  in  sequence.  PRINT!  antes 
data  to  the  am  siacst  exactly  the  *av  PRINT  antes  data  to 
the  screen  ‘or  ..PRINT  antes  to  the  snnteri. 

orsss  ENTER"1 


Cottas  and  set: -colons  react  the  sate  aav  with  PRINT!  that  they 
do  with  PRINT  statetents.  If  vou  were  to  ante  tne  foiloainq 
orecras: 

SO  0*10.3 

20  3s  20.2 

to  a  disk  using  PRINT!'. A. S  fas  ocoosea  to  PRlNTil.AiB).  then 
vou  would  out  this  Oh  the  disk  1  10.3  20.2 

See  the  extra  soaces"1  Those  are  13  blanks  that  BASIC  writes  to 
the  disk. 

cress  ENTER? 


PRINT!!. A. 3 


"he  acc.e  cottaml  outs  this  on  disk  :  Id. 3 


If  vou  use  a  seticolon.  lice  this.  PR'.NTll.AiS  then  you  cef. 


i 

} 


«m  Listing  of  Program  ’LE33QIM /TXT’  »***♦ 


07/11/8 


There  are  onlv  three  scaces  between  the  lumbers.  So  to  save 
scace  an  the  disk.  vou  »av  want  to  write  to  diet  using  seat  - 
colons  instead  of  cc**as  between  vour  variables.  Either  wav 
will  work,  it’s  just  that  the  rcaaas  cause  10  extra  clanks  to 
be  PRINT}  ’d  to  the  disk. 

cress  ENTER" 


Hhat  is  wrong  with  the  fallowing  oroarau" 

10  GPEN'IM.'NcW-REG4 
2'1  PRINT*;. 3>iE2i!E 
’0  CLOSE  ; 

A  The  node  is  incorrect 

5  The  file  buffer  is  incorrect 

C  ■•au  tin:. at  use  seticalcns  between  numbers  in  a  PRINT# 

3  Nothing 

Enter  the  letter  tocosite  the  correct  answer’’  B 

WRONG  -  ’he  correct  answer  is  A  -  the  *ode  is  incorrect  for 
■RKiTlmc. 

cress  ENTER" 


Nhich  do  >ou  wish  to  do" 

A  Continue  or. 

3  Pexiew  this  section  again 

oress  the  letter  oocosite  the  correct  answer  and  press  ENTER"  A 


INPUT#  t  EOF 

INP'JT#  is  suular  to  the  INPUT  word  that  we  learned  ear!,er 
chi',  it  INPUTS  data  froa  a  disk  that  orevicuslv  had  data 


4CG 


**♦*»  Listina  oF  Prooraa  ’LESSCN4/TXT’  ♦***♦ 


printed  to  it. 

10  OPEN  "TEST" 

20  INPUT*!. M$ 

30  PRINT  Sit 
40  3L0SE  I 

The  roraat  Tor  the  INPUT#  stateaent  is  siailar  to  the  PRINT# 
stateaeo.t.  It  is:  INPUT#  !tiuF<er#i. (variable!). < var2.’ ■  <stc/ 

oress  ENTER’’ 


INPUT# 

INPUT#  inouts  data  Proa  a  seouentiai  disk  Pile  and  stores  the 
data  in  a  variable.  INPUT#  doesn’t  care  how  data  was  olaced  on 
the  disk.  It  could  have  oeen  out  there  with  one  PRINT# 
or  twenty  PRINT#  statements,  mi  HATTERS  TO  INPUT*  IS  HDH  THE 
DATS  IS  TERMINATES  CN  THE  SISK.  AND  MHAT  KIND  QF  DATA  IT  IS 
INPUTTING. 


Dees  the  INPUT#  stateaent  check  to  see  how  the  data  was 
olaced  on  the  disk,  or  toes  it  check  to  see  hew  the  data  is 
terminated’ 

A  It  cr.lv  checks  to  see  how  it  was  terminated  -  it  doesn't 
tare  ftc»  the  data  cot  there. 

5  It  checks  tc  see  how  the  data  was  olaced.  .t  takes  a 
::;tererice  now  aa.n<  PRINT#  statements  were  used. 

2  'low  T'-IS  ouestion  is  easv.  Just  oi.e  ze  a  second  and  I'll 
thm<  oP  the  answer.  Hans.  let's  see _ No.  don’t  tell  ae.. 

Eh'ER  the  letter  ocoosite  the  correct  3r.swer’  A 


*****  Listing  at  Prograa  ' LESSQN4/TXT ' 

srsss  ENTER'1 


INPUT*  Si  EOF 


IT  me  are  incuttir.g  STRING  data  ;our  variable  is  a 
STRING  such  as  INPUT*!. Nil,  INPUT*  starts  suiting  data  into 
the  variable  starting  with  the  first  NON-SPACE  it  encounters 
in  the  file,  and  enema  when  it  encounters  a  carriage  return  cr 
a  mssa.  or  EOF  earner  -sore  about  EOF  later!. 

I f  the  .enable  is  nueenc.  tnen  INPUT*  fills  the  variable  «ith 
the  first  character  that  is  nc-t  a  scace  or  carriage  return, 
and  stcos  when  it  encounters  another  soace.  coaaa.  or  carriage 
return  or  EGF  jarker. 

brass  ENTER" 


INPUT*  and  EOF 

Here  is  an  ucortant  concest  tc  understand  about  he*  INPUT* 
#jr»;s  when  vsu  use  STRINGS.  IF  rOU  PRINT  A  STRING  :u  SI 31..  AND 
'DU  PRINT  A  NURSES  WITH  IT.  IT  WILL  LOOK  LIFE  THIS  ON  DISK: 


STRING  DATA  .-£=£  WITH  NURSES  FOLLOWING  1001 


:?  *:<:  input  this  data.  ?au  rust  input  it  using  a  string  variable 

when  YOU  DO.  THE  DOIPL'EF:  XI Li.  PSC?.  THE  STRING  WITH  ALL  THE  DA’A 
ON  THE  LINE,  i INCLUDING  TsiE  NURSES';  BECAUSE  A  STRING  INPUT  DDES 
NO.  RECOGNIZE  SPACES  AS  TERRINaTCRS.  IT  QNL?  RECOGNIZES  UARRIAGE 
RETURNS  AND  CCHRAS 


wr. .  is  tns  iMcrtan:’  Because  vOu  wrote  tne  data  to  disk  with 
"»C  .anables.  and  veu  read  it  back  with  or.lv  CNE.  If  veu  tried 
to  read  tne  n. fiber  after  ,ou  read  in  the  string,  vou  woulo  not 
* i n G  it  1 


7/11/3 


nra cc  ENTErr ~ 


*****  Listing  of  Prccras  'LESSQM4/TXT'  ***** 


The  solution  to  toe  orohlea  of  ho*  to  *nte  STRING  data  and 
NUMERIC  data  to  disk,  is  to  separate  the#  with  carriage  returns 
!cr  ENTERS).  That  wav  vou  can  read  the*  back  with  INPUT# 
statesent  in  the  sase  wav  you  wrote  it.  For  exasple,  if  you 
write  a  string  and  a  nusber  to  disk,  do  it  this  way: 

10  . orogra*  assuses  file  ooened  correctly . 

TO  PRINT#!. -PRINT  THE  STRING  KITH  ONE  LINE  and  the  nastier  with 
PRINT#!,  -.00! 


Ard  when  vou  read  it  back,  use  two  separate  statements. 

:c  input#:, a# 

:■)  input# :.n 

'ms  will  solve  the  oroolea  of  suing  strings  and  r.mfeers  on 
cress  ENrES"‘ 


:fen  -im/test" 
:o  in fuT?:.N* 

TO  PRINT  hi 


I;  we  were  to  run  this  orograe.  and  the  nase  that  was  in  the 
first  record  in  the  file  was  ' 2ANNV  JGE'.  line  20  would  start 
with  the  first  bvte  of  the  first  record  that  was  not  a  sosce 
or  a  carriage  return,  ar.d  load  NS  with  it.  it  would  continue 
loading  Nt  until  it  encountered  either  a  carriace  return  or  a 
ccesa.  If  the  date  contained  a  cuoted  character  string,  then 
all  the  data  between  the  quotes  would  t=  stuffed  into  N$ 
'unless  a  consa  or  carriaoe  'eturr.  were  encountered). 


*****  Listing  at  Frcgna  ’LESS0N4/T)(f’  ***** 


07/!!/8j  ~  s)2iiul01 


Eventually.  and  verv  guicfciv.  the  string  would  be  loaded  with 
the  characters  'DANNY  JOE',  and  line  30  would  grmt  thee  out. 

But  «hat  would  haeoen  it  there  was  nothing  m  the  tile1 
The  INPUT!  statesent  in  line  20  would  encounter  the  EOF  aarfcer 
and  an  ERROR  would  be  returned  saying  that  the  cosouter  tried 
to  incut  data  that  wasn't  there. 


There  is  a  wav  to  test  to  see  it  the  tile  is  at  the  end  or  it 
it  is  esotv.  Press  ENTER  to  see  what  it  is1 


The  ■€'■>■  first  thing  a  cosouter  does  when  it  OPENs  a  file,  is 
it  outs  o  tarter  cn  the  end  of  it.  The  aarter  is  called  an  ECF 
earlier.  If  we  «anteo  to  find  out  it  the  end  of  a  file  had  been 
reached,  or  if  the  file  was  east*,  we  would  test  it  hie  this: 

10  JPE'C TEST" 

20  IF  EOF  11)  THEN  SOTO  sO 
INPUT!!. NS 
40  PRINT  NS 
»j  GOTO  2;) 

aD  ’PINT "END  OF  PILE  ENCOUNTERED' 

')  CLOSE  1 

. .....acre  of  the  orograa  or  an  END  stateaent 

cress  ENTE?" 


:j  OPEN* I M. "TEST* 

20  IF  EOF!!:  then  GCT3  60 
DO  INPliTli.N* 

40  PRINT  NS 

e  -j  cr.Tn  “V 

d  :r:nt"ens  op  file  encountered- 

’/  CLOSE  1 

. sore  of  the  orograa  or  an  END  stateaent 

If  we  had  grmtes  a  thousand  and  one  nases  into  the  £;’.e  "TEST 
the  co#outer  would  out  the  ECF  aarter  on  dace  t  ;002.  and 
when  we  .eed  the  ECC  buffer  4  test  a* ter  naae  !  l;ul.  control 


07/11/6 


*****  ‘.istino  af  F'rsara*  ".E3SQS4.'UT'  ***** 


•wwis  3i$i  t;  ime  nO.  fill  the  raaes  would  have  been  sriax&S' 
Notice  tr.a  we  never  re-Q?EN  a  file  i4  we  haven't  CLOSED  it. 

If  we  tried  to  re-GPEN  an  already  CPEN  me.  «e'ld  get  an  ERROR 

tress  ENTER” 


INPUT*  and  EOF 

The  fcrsat  ftr  the  EOF  stateaent  is  : 

EOF', Suffer  #; 

Users  duffer  nuaber  corresaonds  to  the  buffer  nuaSer  of  the 
file  vou  are  testing  . 

F.eaeaber  to  onlv  use  the  EOF  test  on  a  file  that  is  OPEN  • 
or  ess  ENTER" 


iwowse  we  have  a  file  called  'TEST'  that  is  full  cf  nuaeric 
data,  ilhat  is  wrong  with  the  following  orcgras  if  »e  were 
trving  to  crint  the  file  Out  to  the  screen' 


QfESTM.’TEST* 

1:  EQ?  1 1 1  THEN  3T0? 
INPUT#;.  51 
-r;nt  n 
3GTC  io 


r  Nothing 

5  If  ' TEST '  is  eactv.  the  EOF  checl;  won't  catch  it 
C  .me  50  shaulc  be  SOTO  20 
2  The  file  acde  is  incorrect 

ENTER  the  letter  occosite  the  correct  answer ' 

*SGN3  -  're  ores  lea  is  fat  the  jr:cri»  trvs  to  re- 3FEN  the 
file  that  hasn't  been  GLGSEd.  Correct  answer  is  C 


*****  Ust: 38  of  Fregna  *t£5S9M/n7*  »♦**» 


0 


iif.at  is  nrsr.3  "its  this  orcora*1 

10  CFEN'I'.l. ’TEST" 

IF  SC'F:-2:  THEN  STOP 
:)  ENPliT il.tit 
41  PRINT  at 
:)  3GT0 

A  >,*  *rong  buffer  mustier  is  uses 
3  Nothing 

Z  There  is  no  END  statesent 

SITES  the  letter  cecssite  the  correit  answer*  A 

CORRECT 

tress  ENTER" 


Nt;  oh  :c  »■;«  msn  t:  do" 

A  Continue  on 

3  Re. is*  this  section  acain 

oress  the  letter  oooosite  the  correct  answer  and  Dress  ENTER"  A 


SUWMRr 


In  this  lesson  *e  have  leaned  a  great  ieai  about  Rile  incut 
ano  Ovitojt.  Ho ae.er,  there  is  a  great  deal  ot  tr.tcrsatior( 
that  ae  have  not  covered. 

’he  cu'cose  of  this  lesson  «as  to  introduce  vou  to  the  fund- 
daaenta!  >deas  behind  eeauential  files,  dou  should  coibine 
this  moniedge  »ith  the  orevious  lessors,  and  do  sose  outside 
stuc. mo  or  .cur  can.  After  <ou  taie  the  test,  mu  ail ’  be 
g..er  ar.  ass i ar.se*. t  that  *ill  include  ean.  ct  the  tetv.icues 


AOs 


*****  Listing  of  Proqra*  'LES30N4. 7iT'  ***** 

tie  have  already  learned. 

On  the  following  cages,  there  is  a  oroqra*  that  uses  wnat  we 
ha.e  learned  ;n  this  lessor,.  Study  it  carefullv. 
cress  ENTER" 


The  ourocse  of  the  arograa  or,  the  following  aage  is  to  uodate 
a  lata  file  that  contains  STRING  hats.  It  reaas  in  a  tile 
and  sicilitanecdsit  writes  out  the  sase  data  to  a  afferent 
tils.  Mien  vcu  uodate  a  hie  this  *av.  vou  er.d  os  with  an 
ajdated  hie  that  has  a  different  nase  than  the  one  vou  started 
with.  While  vou  are  stjdvmg  the  oropra*.  think  about  ha« 

. 3u  would  da  it  without  changing  the  filenase. 

HINT:  the  orcgraa  would  have  to  read  the  data  into  an  ar*a» 
and  tnen  add  data  onto  the  array,  and  fmailv  write  the  «ncle 
arrjv  back  Cut  to  the  old  file. 

'let*  h;«  the  consents  are  inserted,  look  ua  whv  this  is  legal 
m  vour  SASIC  aar.jal.  »bu  *av  be  sjrsrisea 

cress  ENTER' 


10  CLEAR  500  '.  Clears  string  seace 

CO  i‘lP'JT*’.r.cut  filer, aie*«!l 
CO  INF'jT’Cutout  filer, a.*e".CS 


:•}  INP'.TII.IS 
30  PR  1NTIC.CS 
3d  SOTO  =0 


' GPENs  the  INPUT  file 
'CRENs  the  OUTPUT  file 
'Checks  *cr  era  of  hie  in  file  II 
'INPUTS  data  *raa  his  *1 
' -'PINts  data  to  the  new  hie 
'Goes  Sac*  for  sore  frea  file  *1 


ll'C  INPiT'EN'ER  DATA  enter  to  stODl’lCS 

::  :i  =  -«*•  c-ct:  iao 

Id  “h*<Ti:.:s  I'liadates  new  file  with  .c-r  aata 

1C;  2212  10-  t'Soes  Sac'-  until  line  11.  sees  PR5 


:v  CuCSE 


we  a-:s.*,e  i  ieoal 


file  crevioas’.v  existed... areas  ENTER'' 


407 


*****  Listing  of  Praorae  ’LESSQN4,  ’IT’  ***** 


Which  3S  »Cu  *150  to  dc? 

.4  Continue  on 

B  Review  this  section  again 

oress  the  letter  opocsite  the  correct  answer  and  press  ENTER"1 


Yen  are  no*  done  *ith  this  lessor.  !f  vou  *ish  to  continue 
to  the  test,  ENTER  a  T.  It  ,au  *ant  to  revie*.  ENTER  an  R. 
ENTER  .our  choice' 


»ou  are  no*  done  «ith  this  lesson.  If  ,-ou  *ish  to  continue 
to  the  test.  ESTER  a  T.  If  vou  want  to  revie*.  ENTER  an  R. 
ENTER  .our  choice'  T 


Some  to  TEST  4  -  olease  standby 


FINAL  TEST  (lesson  4i 

'his  test  consists  of  10  auestions.  vou  aust  get  70  oercent 
of  the*  cor 'set  to  pass,  (that's  7  right  out  of  the  10  ques¬ 
tions:.  Use  oil.'  csoitil  letters  in  vour  answers,  don't 
include  extra  soaces  or  letters.  When  vou  successful.!,  coaolet 
the  test,  .du  -ill  te  gi.en  a  hoseworfc  assignsent  that  mil 
trir.g  aan,  things  together  for  .ou.  SGCD  LUCK ‘ 

press  ENTER  to  continue" 


*****  Listina  at  Proara*  l£3SQN4/TXT'  ***** 


07/11/33  -  02: 13101 


Ahen  vOu  LPRINT  cats  voa  *ust  te  s are  the  orinter  is  an.  has 
enough  oacer.  ana  is  araoeriv  connectea.  LPRINTir.a  aces  net 
send  outout  ta  the  screen. 

Is  the  aCave  oaragraoh  TRUE  er  FALSE' 

A  TRUE 


ENTER  the  letter  ooSGSite  the  correct  answer'  A 


cress  ENTER? 


Jhat  is  the  ccaaana  to  list  vour  arocraa  to  the  crinter' 


A  LPR1ST  " '.f  l  ienasei  ‘ 
i  -1ST  '’Uilenase;" 

r  r5‘r 

j  None  of  the  sieve 

ENTER  the  i etter  ococsite  the  correct  answer'  C 


cress  cSitK 


:Co  sav  access  the  ciddle  recGrd  of  a  sequential  rile  without 
>■630103  in  the  records  that  a>e  in  front  of  it. 

1;  the  aboie  statement  TR'JE  or  FALSE 


9  false 

ENTER  the  letter  ocoosite  the  correct  answer'  A 

AF.2N3  -  the  car-ect  answer  is  S 

'he  :nl.  »*.  to  access  a  record  in  the  si  dale  of  the 


40? 


Listing  ot  Prcoraa  'LES3GN4. TXT7  **m 


07/11/33  -  33:13:01 


file  is  to  read  the  records  tn  front  at  it. 
See  oart  l.  Seouential  riles. 

or ess  ENTER” 


To  transfer  cata  fro*  vour  file  to  a  disk,  the  cocouter  oust 
first  send  the  data  to  a  buf‘er  inhere  it  is  processed,  the  sa*e 
is  true  for  transferring  data  fro*  the  disk  back  to  the 
ccsouter. 

Is  the  above  aaracraon  TRUE  or  FhLSE'’ 


ENTER  the  letter  oaoosite  the  correct  answer1  A 
33RRE3T 


ENTER" 


mi sh  tc  access  a  oreviouslv  created  disk  file,  vou  ml: 
read  in  the  data  and  use  it  to  sake  an  isoortant  financial 
dec:  si  op.  Which  of  the  following  stateaents  mil  aoen  the  file 
ar.d  read  the  data  into  t.ffsr  l.  The  filenase  is  B52CAI 


E  3/  SREtrEM.'SEZEAT* 

C  3cEN":’.5.aE2DAT 
3  4.  3:-ESI*l.S.*.*S5:SAT* 
E  here  of  toe  above 


EN'E5  the  ietter  oocssite  the  correct  answer"1  t 


dress  ENTER:” 


41. 


♦««  Listina  of  Proem  'LESSQlW/TXr  »♦*»» 


07 


itfftat  is  »rcna  wth  the  oroerai  belon  : as  suae  the  END  stateser.t 
in  line  20  automatical! ;  closes  the  files  when  it  is  executed) 

10  OFENT.  1,"TE3T‘ 

20  IF  EOF :  1  ■  THEN  END 
30  INPUTil.rtS 
40  FEINT  Al 
DO  GOTO  10 


A  Nothing 

5  A  'File  already  ooerT  ERROR  mil  5e  generated 
0  The  arena  file  lode  is  -used 
D  Line  ZZ  is  illegal 

ENTER  the  letter  ocoosite  the  correct  ansuer"  E 

CDRREZT 

press  ENTER" 


'he  CLOSE  aord  aa,  he  used  mthout  a  Softer  nutter:  however, 
•hen  you  it  that,  on!*  the  east  recent  file  is  OLOSEo. 

Is  the  above  stateeent  TFLE  or  FALSE' 

A  TRUE 

a  cgj_5c 


ENTER  tne  letter  oocosite  the  correct  answer"  8 


CORRECT 
or  ess  ENTER" 


Mat  is  nr  on  q  w  ife  the  follow  no  oroora*1 


.“TE; 

11. 1 


»*♦**  listing  at  Prograa  ,L£53GN4/rX7 '  ***♦♦ 

30  CLOSE 


n  Nothing 

S  arena  hie  sede  is  used 
C  The  CLOSE  statesent  is  invalid 
C  The  PRINT* 1  statesent  should  he  INPUTil 

ENTER  the  letter  cocosite  the  correct  answer’  A 

CORRECT 

ersss  ENTER" 


‘‘cu  have  odened  a  ;:le  tnrrecti v.  and  you  now  want  to  read 
the  data  trot  it.  T»ae  in  the  coesani  m  would  use. 

Use  line  nusbsr  10.  a  scace.  and  the  coasand.  use  butter  : 
and  read  the  data  into  van  able  A  l 

ESTER  the  tdsaand  no*  '  lv  lNF’Jr*3.At 

■'nr  rCT  * 


Shat  i«  *rang  witn  the  RoL lowmc  orocras 

eof  then  egto  40 
zo  :nFuT#>.«i 
3t  5010  1C 
*i  OCOEE 


tetter- 3 

5  The  hie  «asr.'t  br;cerl.  doered 
0  Nctsmc  will  hasotn  »ith  the  data 
0  The  ESC  st at scent  is  not  needed 

ENTER  the  letter  osocsite  the  ddrrect  answer’  2 


U stinc  of  Prograa  'LESSONS/ TXT’  ***** 


no  cOSUB  zoo 

:zo  RETURN 

ZOO  PRINT'Subroutine  Two1 
210  RETURN 


fti 5  is  an  enaacle  of  a  NESTED  SUBROUTINE’, 
in  line  i 00  calls  the  subroutine  m  line  200. 
legal,  ana  scaetises  .erv  valuable. 


The  subroutine 
It  is  oer recti 


cress  ENTER" 


iltat  is  the  oreer  of  execution  of  the  following  oroaraa’ 

10  S0SU9  100 
20  3CSUS  ZOO 
TO  END 
ICO  RETURN 
ZOO  303113  100 
Z10  RETURN 


T>ce  cut  the  line  nuacers  as  the/  would  :e  executed,  outtina 
r.ice  between  each  nusber.  lie  10  ZO  30  40) 

Erie'  /our  answer" 


*05  -  the  correct  answer  as  ; J C  100  20  ZOO  100  210  30 

That  was  a  rough  one.  veu  ea«  want  tc  review  this  aart 

cress  ENTER" 


which  be  -.cu  wish  to  Co’ 
ft  Continue  ;r 

B  Review  this  section  aasm 

bress  the  letter  oocosite  the  correct  answer  and  bress  ENTER 


»♦»**  Listing  of  Prsgraa  ’LESS 3N5/W  ***** 


07/11/83  -  00 


Resesser  the  3N  GOTO  stateaent  froa  our  orevious  lessons'1 

There's  a  : ssaanfi  very  siailar  to  ON  GOTO  that  can  be  used  with 
susrsutir.es.  ;cu  rtcve  proa  ably  already  guessed  that  the 
coaiand  is  called  ON  SQS13. 

Here  is  an  exasole: 

13  INPL  "ENTER  A  HUME?.  SEMES  1  MS  4*;N 
ZO  ON  N  60SU8  300.400.S0o.a00 

If  N  =  1  then  sudrsutine  300  would  Ce  executed,  if  N  2  2.  sub¬ 
routine  4v0  weald  execute.  ana  so  or. 

SBEgJ  cmtER” 


ON  GCSUB 

IN?l’T’ENTES  A  NUMBER  BETWEEN  1  AND  4'iN 
Z)  ZN  N  3CSL9  300.405.500.o0-: 

If  the  .-alue  of  «  exceeds  the  rusher  of  sot  ions  that  are 
a.ailaole.  then  ON  S0SU8  will  default  to  the  first  available 
line  nuaoer  -.i.-i  this  case  it  would  be  300; 


PRESS  ENTER  P3R  AN  EXAMPLE'1 


1C  ?SX’TY°E  !  FOR  SS’jAFE  TABLE 1 
20  FRINT’T-RE  2  FOR  THE  ELBE  TABLE” 
3)  ZNP'JT  A 

40  OH  A  Z’DSuB  1-X0.200C 
30  GOTO  1? 

1  .-00  cQfc  «  2  1  TC  50 
1  Jt-J  PRINT  Lt*t 
1020  NElT  l 
:->30  RETURN 

oo  pan  i  =  i  to  so 

ZOI'J  PRINT  i.  tun 

zczo  nejt  j 


Li stins  of  Prograa  ' LESSGN5/ TXT  *  ***** 


ItlZQ  RETURN 

If  vau  ENTER  a  1.  then  suaroutme  1000  is  used,  which  suorou- 
tir.e  is  used  :f  vou  ENTER  a  4  <1000. 2000  or  NONE)”  NONE 


CORRECT 


PRESS  ENTER” 


NaicN  aa  *ou  wish  to  do” 

A  Continue  an 

S  Review  this  section  again 

aress  the  letter  osoosite  the  correct  answer  and  Dress  ENTER” 


■au  are  non  done  men  this  cart  of  the  lesson,  if  vou  ENTER  a 
C  '  vou  mil  :o  or.  to  the  second  cart.  ENTER  an  ‘  R  ’  to 
start  ever,  which  do  vou  want  iC  or  fii”  C 


LESSON  3A 


This  is  the  second  oart  of  a  two  oart  lesson 
It  is  divides  into  the  following  sections. 


I-  Introduction 
2:  -unctions  Overview 
2)  Lidrarv  Functions 


4)  User  Defined  Functions 
3!  DEF  Statements 
i)  TEST 


A  I’»  takmo  this  oart  in  its  entirety. 
b  I  wish  to  review  selected  areas  ior  taxe  the  test). 

2  I  want  to  go  to  the  first  oart. 

2  I  want  to  return  to  the  lenu. 

:'ress  either  casual  A.  S.  2.  or  2  and  then  oress  ENTER”  A. 


*****  Listing  of  Praqran  'LESSOHS/TXI'  ***** 


07/1! -33  -  00:32:19 


INTRODUCTION 

In  this  lessen  «te  mil  tackle  the  different  categories  and 
kinds  of  FUNCTIONS  that  are  available  to  us  m  Microsoft  BASIC, 
we  mil  use  crincioles  already  covered  m  previous 
sessions.  If  .a.  have  trouble  with  soae  of  the  concents,  then 
.Oj  will  nave  to  review  the  acorooriate  lesson  to  catch  uo. 


-owever,  we  will  not  be  doing  into  great  deoth  with  our 
explanations.  Sanv  FUNCTIONS  have  verv  soecific  uses  and  it 
would  not  be  useful  for  »ou  to  eesonce  thea.  The  idea  ,ou 
should  oet  froi  this  part  is  that  there  are  sanv  functions 
available,  and  that  when  vou  need  thea,  »ou  should  get  out  >sur 
canual  and  look  uo  the  soecific  i«oleaentation  of  each  one. 

crass  ENTER-' 


Functions  Overview 

Feaesbe”  in  the  second  oart  of  Lesson  1  when  we  described 
FUNCTIONS  for  the  first  tine'1  Ne  said  that  we  would  cose  Sack 
:o  the*  m  another  lesson.  Weil,  this  is  if 

:ro;»  that  lesson  we  snould  reoeater  that  functions  are  ore- 
written  instructions  tnat  oerfor*  coasonh  used  ocerations. 
to.  can  iooi.  at  functions  hie  thev  were  tmsocrsuV.ttes. 
on;  /  vou  don’t  use  SOS'JB  or  RETURN  statements  to  call  thea' 
Instead,  <ou  just  .se  the  keyword  associated  with  the  FUNC'iQN 
an:  the  ccsouter  cerforas  the  acorooriate  ooeration  auto- 
saticall,.  In  the  nest  sections  we  will  stud*  two  tvoes  of 

[functions.  Library,  and  User  Functions. 

cress  ENTEF.7 


Functions  overview 

.;;ri-y  f.noticns  contain  .se-ul  ocerations  t 


.nat  have  beer. 


*****  i_i stinc  of  Proaras  'L£SS0N5/T*T'  ***** 


07/11/83  -  00:32:1? 


written  ana  stored  in  the  coaouter,  and  are  there  anenevsr  ;ou 
neec  the®.  User  functions  are  functions  tnat  vau  sake  up 
8 1  inserting  tne  instruction  to  sake  the*  in  vour  oraqrae. 
Then,  ahen  vour  orograa  needs  the  special  USER  FUNCTION,  it 
can  call  on  it  with  a  special  word. 

There  are  lanv  functions,  and.  depending  on  the  specific 
. iclesentation  of  Microsoft  SASIC,  vou  nrooao!.  have  at  least 
12  Library  functions  stored  m  vour  coaouter.  3n  the  nest 
screen  is  a  list  of  the  tvoical  set  of  Library  functions. 

or  ess  ENTER? 


Tvoical  Library  Functions 

1;  ASSles o;  -  gives  absolute  value  ')  LOGfespi  -  gives  LOS'.ei 
2)  A'Niesp.’  -  arctangent  in  radians  3!  SNDiOl  -  randoa  nuaners 

3  CSS laspf  '  returns  cosine  of  exp  s)  SGN'.esni  -  sign  of  exo 

EtP.esp:  -  natural  exponential  lOi  SlSfexal  -  sine  of  exo 
5:  FlJisxsi  ■  gi.es  integer  :t  exo  111  SQR(exo)  -  souare  root 

ei  1ST  ex  6'  ■  gives  integer  of  era  12;  TANlexa!  -  tangent iexpi 

exo  *  an.  acsr sari  ate  nuaeric  expression  -  reaesber.  ,ou 
can't  use  AN':  :...#ber  ror  sose  of  tne  functions  «. SDR  1  -1  /  boecs '  • 

Specific  ex  aisles  of  these  functions  will  te  given  later,  or 
•Ou  ta.  look  then  up  m  vour  BASIC  nanuai. 
cress  ENTs?" 


Is  the  following  statement  TRUE  or  FALSE-' 

Librar.  functions  are  predefined  instructions  that  are  stored 
inside  the  coecuter.  and  aa>  be  used  at  an,  tne  m  .our 
or  oar  as. 

A  "RUE 
5  FALSE 

ENTER  t*e  letter  oooosits  the  correct  answer'  A 


<27 


Listing  of  Pros? aa  ’LESSQkj/TiV  ***** 


07711/3: 


00:32:]? 


CORRECT 
cress  ENTER"' 


Is  the  following  sentence  TRUE  or  FALSE? 

User  Functions  are  sane  Sv  the  user  ana  are  not  noraallv  stereo 
is  the  coiouter. 

A  TRUE 
S  -ALEE 

ENTER  the  letter  cooosite  the  correct  answer7  A 

CORRECT 

cress  ENTER7 


Much  Jo  vou  wish  to  So" 
i  Continue  on 

S  Renew  this  section  again 

oress  tre  letter  oocosite  the  correct  answer  and  cress  ENTER7  A 


library  Functi 

one 

!;  ASSleo) 

-  gives  absolute  value 

7)  LQGtexD)  -  gives  LOS e * 

2)  ATS:  esc: 

-  arctangent  in  radians 

8i  RNCiOl  -  rar.do*  nusbers 

3?  3CS  6^o. 

-  returns  cosine  of  exa 

3!  SGNtexo;  -  sign  of  exo 

?•  £iP:e<c: 

-  natural  ei-ccnential 

10!  3 1 N < ex c >  -  sine  of  exo 

C  'irex;: 

-  gi.es  ir.teoer  of  exo 

: £ :  SSRtexq;  -  scuare  root 

INT'.e<0’ 

-  gi.es  integer  of  exo 

12)  TAN'.exo'  -  tangent !ex9 l 

**s  •  an*  aoarccriats  nuaenc  e.oressien  -  reaeaher.  .ou 
can't  ise  ANT  nutter  for  so se  of  the  functions  iSQR'.-H  boats! : 

Fere  ire  twel  .*  of  the  acst  used  liararv  functions.  As  an 


»♦♦»*  Listing  of  Program  ' LE3SDN5/ TXT '  ***** 


07/11/83  -  00:32: !« 


e'.atde  at  how  *uch  ti se  thev  can  save,  trunk  of  the  mister  of 
statesents  van  would  have  to  write  to  calculate  the  iogarith* 
of  a  nu tier. 
aress  ENTER" 


Library  Functions 


All  vou  have  to  do  to  calculate 
mister  is  10.  is  to  t.-ce  in  the 
The  eiaaoie  of  the  logarithm  of 
the  library  functions.  Here  is 


the  log  of  a  nuster,  sav  the 
statesent  -  PRINT  LOGliOl' 

10  is  exactly  now  we  isoiesent 
another  exasole: 


10  INPUT’T.oe  in  the  n.usber  vou  want  the  53uare  root  ofi-N 
20  PRINT  EGRiN) 

30  GOTO  10 


In  this  eaaoole.  anv  oositive  ouster  will  have  its  square  root 
t ranted  out.  Anv  negative  ouster  will  cause  an  error,  ton 
can't  take  the  souare  root  ot  a  negative  nusber. 

aress  ENTER" 


Library  Functions 


•:  iNRL’T’T/se  tn  the  nusber  vou  want  the  souare  root  of:N 
:>  PRINT  EGRiN: 

:o  got: 

Notice  that  the  function  allows  vou  to  use  a  variable  as  an 
arguser.t  for  the  nusber  ,au  want  the  souare  root  of.  In 
addition  to  this.  »ou  can  use  a  FUNCTION  as  an  argusent  for  a 
FUNCTION’ 

oress  ENTER  for  an  exasoSe5 


Library  Functions 


42? 


*****  Listing  at  Prcera*  ’LESSCNS/TIT'  ♦*♦♦♦ 


07/11/3 


10  !NPHT"Er,ter  the  nuaber  vou  want  the  souare  root  cf'!N 
20  PRINT  SQR'.hBS  :M:  ; 

30  SQTO  SO 


In  this  eraacie.  no  latter  what  the  sign  at  the  nuaser  vou 
enter,  .-cu  mil  get  a  valid  souare  root,  because  ABSiN)  mil 
gi.e  the  absolute  .alue  of  N  as  a  ncsitive  nuaber!,  ana  then 
SSP'.ABSfN!/  *il!  give  the  souare  root, 

•an  can  use  :ust  about  anv  valid  nuienc  esoression  tor  the 
•US!  nart  of  anv  Librarv  Function. 

r.focc  £H7£R#' 


Is  the  follcwinc  stateient  valid'’ 

1)  PRINT  L3£!;- 

HINT;  If  .a.  are  not  sure,  trv  it  on  a  calculator 
A  V £ 5 ,  I t  l i  Valid 

i  No.  ')  is  not  a  valid  water  for  this  function 
ENTER  the  letter  cocosite  the  correct  answer ”  B 
CSRR-CT 
oress  ENTER” 


Librarv  Functions 

‘.0  INPjT’Enter  the  nuaber  vou  want  the  scuare  root  af‘;N 
20  -PINT  3GF;  ABSiNP 
:  :  got  c  io 

The  exoression  ABSiN!  is  evaluated  first,  then  the  outside 
egression  -  BSP::  —  !  -  is  evaluated  sent.  fieeeiber  fro*  the 
‘irst  lesson  when  «e  said  that  the  oarenthesis  is  the  highest 
oriorit.  arithjetsc  evOressi on”  That  seans  that  anv  esoression 
tea:  is  within  oarenthesis  will  be  e»a!uated  first.  If  sore 


ESTES  the  letter  onoosite  the  correct  ansmer^  A 


efiGSG  -  hirer*  functions  are  oerjanentl /  stored  m  tne 

ccsouter  ar.d  cannot  ce  created,  the  correct  answer  is  B 

erase  EN7EE" 


In  tne  nett  fe»  screens,  me  mill  ask  -ou  suesticns  concerning 
lunar,  functions,  rou  should  get  out  /cur  BASH  sanual  and 
look  u3  tne  ans«er  tc  the  juestions  de‘cre  ;ou  atteeot  to  enter 
vcur  resBorse. 

‘ tu  ehculd  sue  vc.r  ansmer  m  the  foreat.  FUNCTIGN'.nuebert. 

Uu  .hi  almave  te  g:>en  the  neater  ‘or  the  Function,  and  »ou 
do  r.st  ha.e  tc  include  a  line  nuster.  For  e.-.asole.  it  me  ask 
ior  tne  ‘unction  that  sues  the  scuare  root  of  10.  »au  mould 
ti-oe  :n:  EQ&'.'. /' . 

fees  ENTER" 


ftat  it  the  function  that  gives  the  natural  log  o*  3"  LOS ; 31 

GGf.FECT 

tress  ENTEF" 


431 


J 


*****  Listing  of  Proar»a  ' LE33CN5/ TXT '  »**♦♦ 

Niie  the  function  that  gives  the  absolute  value  of  -3"  AB3(.-3 

CORRECT 

Dress  ENTER'' 

Utiat  is  the  function  that  gives  the  arctangent  of  «*3'’ 

WRONG  *  the  correct  answer  is  ATN (fi*3 •• 
sress  ENTER" 

What  is  the  function  that  gives  the  sine  of  .5'  S!N:.S! 

CORRECT 

oress  ENTER"1 

1a«e  the  function  to  give  a  randoe  nuaber  between  0  \  1"  SflHC 
WRONG  -  the  correct  answer  is  RND'.Q) 
oress  ENTER" 

Khicn  an  .ou  wish  to  do" 

A  Continue  on 

B  Review  this  section  aaam 

cress  tre  letter  oaoosite  the  correct  answer  ang  oress  ENTER" 


Listing  of  Proqraa  ’ LES30N5/TXT'  ***** 


07/11/33  -  00:32:13 


User  Functions 

User  defined  functions  let  vou  aake  uc  vour  own  functions 
then  you  can't  find  a  library  function  that  m:  1 2  ao  the  job. 

The  stateaent  you  use  to  DEFine  a  user  function,  so  the 
coacuter  ail!  Know  what  <cu  are  doing,  is  caileo  the  DEF  state- 
eent.  The  user  function  only  aooiies  to  the  oroorai  in  wmch 
it  was  defined.  <lhen  the  orocrai  is  abandoned,  the  function  is 
no  longer  valid.  i5n  ezaaele  or  a  user  defined  function  is 
coamo  uo  ....  but  first,  soaethino  a  little  dif rerent. 


cress  ENTER' 


Car  user  functions  be  carried  over  frsa  one  orocraa  to  another' 
A  “es 

3  No.  thev  airtavs  have  to  be  redefined 
C  :oth  A  V  3  above. 


Enter  the  letter  ooscsite  the  correct  answer'  B 


CORRECT 


Dress  ENTER' 


User  Functions 

10  DEF  FNR2  =  1NT sRNSlOl  *  lji 
20  DEF  -NWlA.s!  -  A  »  8/2  *  '.ft  -  B) 
TO  (  -  FNR2 
O’O  PR!,NT  i 
50  !  =  FNKn.4) 

6!  FRIST  ; 

TO  ESC 


F 


CEF  Statement 

Tne  SEP  statesent  is  used  to  define  a  user  function  and  it  ft as 
the  following  format : 

#  ;5EF  FM'fuac.  .naaeoivars: :  *  ',«r.8i 

t'ca  wst  never  use  the  DEF  statement  in  the  l MEDIATE  node, 
vcu  aiaa.s  have  to  have  a  line  muter.  In  CPU  ana  Croaeac: 
sisteas.  vni  Just  seoarate  the  tens  DEF  and  FN  dv  one  scace. 

In  TRS-SOs  <ou  don't  nave  to.  The  (fuse,  naae •  is  an*  •■alia 
•  a.  table  nase.  .ars ■>  is  an  actional  oaraseter  that  an  3e 
cassec  to  the  function.  If  it  is  used  tn  the  DcF  statement,  it 
h'J5r  te  .sad  -nen  it  is  called  on.  acre  an  that  later.-.  The 
ten  -.eve;  is  tne  calculation  that  m  msh  the  function  to  do. 

e'ess  EN’EF' 


i.  :ef  '‘if:  *  int  FNCiO  *  to> 

::  ;-£*  «.e  =  a  *  s;c  -  -a  -  b. 

:.•  >  *  cns: 

4u  ;P:ri;  > 

!l  1  -  c"!» : . 4 • 


*****  Listino  of  Fraqraa  'LESSQN5/TXT’  ***** 


Set  aut  vaur  BASIC  sanual  and  look  uo  DEF.  It  mil  show  *cu 
esaaoles  sisilar  to  this.  Line  10  defines  a  function  naaed 
82  that  Kill  ee  set  eoual  to  tr.e  expression  on  the  right  side 
of  the  statement.  -  it  will  return  a  randoa  nusber  setween  1 
and  10.  Note  that  this  user  function  uses  a  library  function 
as  part  of  its  oefimtion.  This  is  legal. 

cress  ENTER0 


San  <gu  use  a  library  function  as  oart  of  the  definition  of  a 
liSER  f  j ri“  1 1  cn "* 


ETcr  the  letter  ooocsite  the  correct  ansaer-'  A 


07/11/83  -  00:32:1? 


ores:  ENTER" 


:o  :ef  fnr:  =  imkssscjj  ♦  io» 

20  DEF  FNlf-A.B'  =  A  *  8/2  *  >.A  -  B: 
30  i  --  rNR2 
; 

C;  •  =  FNB ! ' . 4 
10  PRIM T  ■' 


Eir.e  30  calls  or.  the  function  defined  m  line  10.  Uhen  it 
sees.  1  is  set  ecual  to  a  randoa  nuaber  between  1  and  10  and 
then  it  is  or-.nted  out  m  line  40.  u.ie  CO  calls  on  the 
‘unction  m  line  23.  but  it  senes  tuo  .alues  to  the  2EF  state 
lent.  It  sends  f  a  ranooa  nuaber:  ana  the  nuaber  4.  AN? 
.sled  .ar. sole  can  te  cassed  to  a  function,  even  a  strmc. 


-ssssr.  ram-. 


*****  Listing  at  Rrcgrai  ’LE3SGN5/TX7'  ***** 


07/11/33  - 


1C  DEF  F.NR2  =  INI .RMDiOJ  ♦  10) 

20  DEF  FKH-A.B’  =  A  ♦  B/2  ♦  (ft  -  8) 
30  X  -  FHR2 
40  °R!:M  1 
5C  !  =  FNNU.4) 

40  PRINT  '! 

"0  END 


A  string  could  bs  gassed  in  a  Function,  but  it  would  have  to 
be  aoentea  on  leqilU  trn tftan  the  DEF  statseent.  In  this  case 
the  DEF  statement  ih  line  20  esaects  two  nuaerical  variables. 
Note  that  the  two  .-enables  sassed  in  line  SO  do  not  aster, 
the  DEFinsd  .enables.  Thus  is  also  legal,  too  can  view  the 
DEF  statement  as  its  oar  little  orogras.  it  does  not  ,.ncw  the 
value  of  anv  of  the  .enables  in  the  outside  orogras. 
n.'ac:  ENTERS 


ID  DEF  CNR2  *  1ST ‘ RND i0)  ♦  10; 

20  DEF  FIW'A.  3.  *  A  »  S/2  *  lA  -  B.i 
35  S  =  FNR2 
4C  PRINT  • 

;j  i  :  rNmt.4; 

SO  PRIM  i 
Vi  END 


the  two  values  that  are  DEFmed  as  A.  and  3  will  be  set  eoual 
to  the  correscondmg  values  of  X  and  4.  A  will  eoual  X  and  & 
sill  equal  4.  The  DEF  stateser.t  will  then  use  tnese  nuaeers  to 
calculate  the  texa)  oart  ot  the  statesent.  and  then  will  he 
side  eoual  to  this  value.  Finally,  the  value  will  be  onr.ted 
in  line  40.  feu  an  wish  to  coo/  a  aregra#  like  this  ar.d 
seen  sent  with  it  to  see  how  it  worts, 
oress  ENTEF’ 


1;  DEF  -MR2  =  iriRNC'Oi  ♦  10) 

2C  DEF  -NWiA.B  =  A  *  2. 2  *  .A  -  8: 


70  .!  *  FNR2 


listtns  of  Praoriit  'LcSSCHSiUT'  ***** 


37/U/S: 


3  -  0 


pj  pm:  i 

50  '!  -  FNif,X.4> 
cO  PRINT  f 
70  END 


Shit  >aiue  waul 2  os  oassed  to  3  in  the  secona  DEF  statement 


«  *» 

5  The  value  at  X 

C  Cannot  tell  -  net  enough  information 
ENTER  the  letter  sooosite  the  correct  answer"  A 


C3SRECT 
cress  ENtTES” 


:i  SEP  FNXirii.  -  LEN'iAl) 

At  *  “This  is  a  function" 

3.'  x  z  "NX x As: 

40  PRINT  X 

Here  is  an  e-asole  of  cassis?  a  string  in  a  user  function. 

In  all  the  exaacles  that  we  have  shown,  we  have  always  told 
the  coacuter  when  «e  wanted  to  mvofe  a  user  function  bv  using 
the  srePa  ’ -N ■ . «r  That  is  the  on  1  »  wav  to  get  to  vour 

.it'  f.nctior.. 


oress  ENTZF’ 


10  DEF  -hi 1 “I i  =  .EN  AS, 

2J  a$  *  "Tr:s  :s  a  function" 

3.  X  =  -hl'ASi 
io  PRIST  x 

hots  ;•  the  e-atole  a Cove,  that  we  oassed  a  string  within  a 
nu-ieric  variable,  but  that  in  the  DEF  stateaent.  we  set  the 
n.ieric  ■  anasle  eoual  to  '.EN'st-ioqi.  lEN '.stride;  is  an 
evatcle  o*  vet  another  t»oe  of  -UNCTION  that  we  will  study  m 
the  ne-t  lessor..  LEN1 string;  returns  a  nuaertc  .aloe  e:u»l  to 


*»**  wistinc  of  Proqraa  ’LESSONS/TXT'  *♦**♦ 


07/11 


the  LENGTH  of  the  string  that  is  within  the  oarenthesis. 

Don’t  «*crr<  snout  it  now.  we  will  cover  it  in  the  ne.t  lesser. 
However,  because  it  is  a  NUMERIC  valae.  its  tvoe  utues  the 
DEF  statement,  and  therefore  it  is  valid. 

■focc  E?iTERn 


dhit  l;r.d  zf  unction  do  vo-a  crsatB  wit*  the  DEr  stats&snt 

^  i]  i  E  ^ 

?  ..'SPA?  • 

C  EITHER  USES  or  LISRARt 
2  DEFINED  FUNCTIONS 

ENTER  the  letter  occas.te  the  correct  answer’’  A 

CORRECT  1  -  2-t  that  «as  an  easv  one.  trv  the  ne.;t  ouesti-or.  if 
vou  think  -.cu  are  on  to  it 

ue  snow  vol  are  -  we're  ;ust  trv i no 
to  i;on ten  th.iaas  uo  a  tit- 


CfTrr 

j.  etis  HMcn 


l-i  the  *2i lew! r.a  statement  valid' 

1C  EE?  FNSS.A.S.  =  A  *  B 

A  fes.  to  call  on  it  sieolv  not  FN83  soeewnere  m  >our  prooraa 
3  No.  the  teras  A  and  3  are  not  defined  and  will  cause  errors 
C  No.  88  is  not  a  valid  variasle  for  this  oosition 
2  No.  the  s>ntax  is  coca.  tot  the  heat  is  oocr,  vou  can’t 
sance  to  it. 

EN’ES  the  letter  nenosite  the  correct  answer' 

MS2N3  •  the  correct  answer  .5  C 


***♦»  Listing  of  Proaraa  ’LESSONS.- TXT"  *»m 


07/11,3 


i cp.  dc  vdu  wish  tc  do'1 
A  Continue  on 

8  Review  this  section  again 

cress  the  letter  GBOosits  the  correct  answer  ana  dress  ENTER’  A 


•ou  nave  coaoietes  this  lessen  and  new  veu  can  go  to  the  test 
It  veu  wish  to  review  oarts  of  this  lessen,  tvoe  in  an  ’R’. 

;t  veu  wish  tc  continue  to  the  test,  tvoe  m  a  T. 

inter  cur  choice  •;?.  or  CP  C 


•Sitrc  to  test  *u«*r  5  -  wait  oatient!/  oiease 


FINAL  *cST  1 lesson  Si 

This  test  consists  of  10  cuestior.s,  you  aust  cet  70  oercent 
of  thea  correct  to  case,  ‘.that's  7  right  out  of  the  10  oues- 
ticns:.  uee  cpi»  caoital  letters  m  your  answers,  don’t 
include  sst-a  soaces  or  letters.  If  vou  successfully  cosalete 
the  test.  ,ou  can  go  on  to  the  last  lesson1 
6G03  LUCK 


oress  ENTER  to  continue' 


T.oe  it  the  order  ir-  which  the  following  lines  will  oe  executed 
Lea,e  ore  soace  between  each  line  nuster  -  ie.  if  the  execution 


seouence  .s  ten.  twenty  ana  thirt.-.  then  tvoe  in 


50508  L.:0. 


07/12/9; 


*****  ustina  of  Proaraa  ’LESSONS/ TXT’  ***** 


ZO  PRINT  ’CGNE" 

:o  END 
;j.;o  RETURN 

Enter  the  seauence  now?  10  lOOu  20  30 


'  f 95c  ENTER'1 


Nhat  wili  nanaen  when  vou  incut  tr.en  nusber  4  ta  the  follow  r.q 
arocras’ 


10  INPUT  A 

30  QN  A  SCSUB  1000.2000.3000 

:o  end 

. ...  rest  of  oroaraa  is  not  iiaoortant 


A  Not  nine 

6  Subroutine  3000  mould  be  called 

2  Subroutine  1000  would  be  called 

3  The  oroqraa  would  enc 

ENTER  the  letter  oocosite  the  correct  answer’’ 

CORRECT 

cress  ENTER7 


no*  aanv  RETURNS  can  »cu  have  m  a  subroutine’ 

A  Cne 

?  As  *anv  as  .ou  want,  out  thev  should  oe  lent  to  a  itnijua 
C  One  for  e-.erv  SCSUB 

D  No  »ore  than  the  asount  of  ae»orv  available 
ENTER  the  letter  oooosite  the  correct  answer’  E 


44( 


»»*»»  Listinc  at  Praarae  ' LESSONS /TXT ’  ***** 


07/11/83  -  00:32: 19 


tress  ESTES’1 


aha:  :s  wrona  Kith  tnis  oroarsa’’ 

10  INPUT  A 
20  BCSU3  1000 
?J  ESC 

10CC  IF  A  •;*  10  THEN  RETURN 
10005  !F  A  *  H  THEN  RETURN 
10 10  S0T3  10 

A  Vatfiing 

3  Ore  of  the  acsssble  exits  free  the  subroutine  is  incorrect 
C  There  are  too  aanv  RETURN  stateaents 
C  The  IF  stateeer.ts  aren’t  allowed  m  a  subroutine  like  tnis. 

ENTER  the  letter  oocosite  the  correct  answer1  A 

*03  the  correct  answer  is  3 

IT  A  l5  greater  than  10.  then  line  1010  causes 
the  subroutine  to  branch  into  the  cam  oragrae. 

That  will  eventually  cause  the  cofibuter  to  get 
aueo  ug  ar.d  30ft8.  Fee  oart  !.  Subroutines. 

cress  EN’ER1 


-or  the  next  few  ouestions.  »cu  should  be  sure  vcu  nave  vour 
SASIC  casual  available  so  <cu  can  figure  thee  out  correctly. 
All  the  ouestiens  are  fra*  oart  2  of  the  lesson,  and  ,our 
SASIC  aanuai. 

oress  ENT£h’ 


ah  at  is  the  /al.*  of  the  fallowing  stateeenf 


*****  Listing  of  Proara*  ’LESSGN5/T!!T’  *****  07/11/3 

A  S’ 

PI  J 

8  s23 

C  the  natural  losaritha  at  25 

D  100 

ESTES  tse  letter  ocoasite  the  correct  answer"  w 

CQRSECT 

cress  ENTER" 

ihat  tvpt  of  functions  would  be  written  sv  von 

Tvoe  in  .our  answer  usmo  all  caoitai  letters.  Do  NOT  aosena 
the  ward  FUNCTION  on  the  end  of  .our  answer. 

Tvpe  in  vour  answer  now'  USES 

CORRECT 

press  ENTER' 

dhat  is  the  ten  >ou  would  use  to  define  a  USER  function. 

•  hint:  It's  two  words.  DON’T  include  a  yen  able,  leave  a  soacs 
between  the  t»o  words; 

ENTER  .our  answer  now"  DEr  FN 

ICRFEDT 

Dress  ENTER" 


DEF  fn*  =  :o  ♦ : 

Phat  is  the  ten  that  would  coedete  line  2>  if  *e  wishes  to 
call  on  the  user  function  m  line  !(" 


*****  Listina  sf  Proana  ' LES30KS/ TXT '  ***** 

ENTER  our  answer  r. ctT  ,-NK 

CORRECT 

press  ENTER'1 

which  of  the  following  functions  is  valid' 

) A  SEF  FHiC.X!  -  1  *  M2  *  Ft 
£  OEF  FtUO  1  Z.M)  =  2  *  3  «■  Z  *  H 

E  DEF  FXY'M.X)  =  LENiAS:  *  1. 

D  CEC  F!U  =  SQR',-4! 

E  OEF  F‘it  z  LQGfOi 

ENTER  the  letter  opposite  the  correct  answer'1  C 

CORRECT 

press  ENTER’' 

•fist  is  tie  proper  statessr:*  to  exit  fro*  a  suprcutine’’ 

ENTER  .our  answer  now"  RETURN 

CORRECT 

press  ENTER’’ 

•:u  "ave  finished  the  test,  out  of  iO  oossiDle  correct  answers 
vou  scored  E  . 

rOU  HAVE  PASSES 

;GU  nee:  improvement  in  the  following  areas: 


cart  1.  SUBROUTINES 


*****  Listing  ot  Prcoras  ' LESSQMS/ TX T '  ***** 

are ss  ENTER? 

Da  vau  wan:  vour  score  recorded  on  a  oersanent  ;ileA 

A  <ES 
B  NQ 

Which?  a 

vau  are  now  ouahtied  to  ao  to  LESSON  a. 

too  sa v  return  to  the  fttNti  or  receive  vour  ncse«orc. 

Do  vou  want  .our  nosewori:  assianaent  iV/S!* 

inn.  in  D33i 

S>3TW  BESET  ♦SO** 


iii 


*****  Listing  or  Frogran  '  LE33GN6A.  T T '  ***** 


•57/: i/83  -  0i:08:« 


INTRODUCTION 

This  :s  vour  last  lesson'  Congratulations:  I#  you  have  ta<en 
the  jrevious  five  lessons,  voa  should  ae  feeling  a  little  aore 
coefortable  with  Nicrcsoft  BASIC  bv  non. 

In  this  lesson  «e  mil  cover  STRING  functions  first,  and  then 
we  ni 1 1  learn  about  the  Sicrosoft  Editor  (in  the  second  halfi. 

As  ae  learned  before,  a  BASIC  string  is  one  or  eore  aloha- 
niiaenc  characters  that  are  treated  as  a  single  collection  of 
data.  Using  the  conceots  m  this  chaoter,  .ou  can  oerforo 
aatw  of  the  saae  tvoes  of  ooerations  on  STfiiNSs  that  you 
can  serf  or  a  on  nuaeric  data. 


cress  if*: 


EfiTEA'> 


INTRODUCTION 


As  a  saali  review,  vcu  should  reaeater  that  string  data  can  be 
designated  in  two  wavs,  ion  can  assign  >o ur  data  to  a  string 
.ariabie.  or  /ou  can  enclose  the  data  m  ouotes.  Here  are  two 
it  ancles. 

10  PRINT  "This  is  one  wav  to  designate  a  string  * 

2)  v’$  =  ’Another  wa,-  is  to  out  it  in  a  variable  and  oriftt  it* 

TO  PRINT  Vi 

tine  10  orints  the  string  data  usediateiv.  and  Line  20  loads 
the  variable  Vi  with  the  data.  Vi  can  then  be  armed  when¬ 
ever  we  want  it. 


oress  ENTER' 


INTRODUCTION 

SO  PRINT  'This  is  one  wav  to  designate  a  string* 
20  Vi  *  "Arc  this  is  another' 

~y  :c;v- 

4,1  io:n:  vi 


Listing  2*  Proora*  ' LESS3H6.‘ TJT*  *****  07;  5 1/33 

SUN 

Tina  is  one  wav  to  designate  a  string 
And  this  is  another 

Here  is  another  variation  of  our  httie  grogras.  Note  that 
'And  this  is  another'  is  not  gristed  until  line  40  is  executed. 

cress  ENTER" 


INTRODUCTION 

fieseeter.  in  this  lesson,  as  in  al!  of  0 or  lessons,  vou  shoulo 
have  either  a  good  BASIC  aanual  handv.  or  vou  should  have 
an  esoerier.cefl  orograsaer  around  to  help  vou  with  difficult 
crobless. 

In  50*e  of  the  answers  vou  ail:  need  to  oe  Sure  vou  use  the 
correct  case  leither  uocercase  or  lowercase).  so  be  sure  to 
read  all  the  Questions  carefullv. 

Set  out  vour  aanual.  or  orograsaer.  now.  and  let's  enjsv  BASIC 
cress  ENTER" 


STRING  ASSIGNMENT 

As  «e  showed  vou  in  the  introduction.  <ou  assign  strings  to 
a  variable  and  then  »ou  can  orint  the  variable  anywhere  m  the 
orograa.  That  aafces  it  easier  to  write  long  orograa  lines, 
because  vou  don't  have  to  teeo  tvoing  in  the  test  every  use 
vou  want  to  use  the  string  data. 

vou  can  assign  data  to  strings  using  anv  of  the  statements  we 
used  to  assign  -uteri:  data  to  nuseric  variables.  LET.  READ, 
ar.g  INPUT  are  all  used  with  stung  assignment  vLET  is  optional 
tust  as  it  is  with  nuseric  data:. 


cress  E.N.ir 


447 


♦hh  Listing  ot  Prcgrai  LE3SQN6/7XT’  #♦»»* 


07/11/83  - 


7:40 


Are  these  stateaents  legal?  Sassute  the  orcgra*  15  just  tor 
deionstration,  and  that  8*  is  blank) 

10  READ  AS 
20  INPUT  AS 
30  LET  AS  =  8$ 

40  AS  =  “NGN  18  THE  TIME" 
ffi  DATA  “NOW  IS  THE  TIME" 

A  No.  the  LET  statesent  in  line  30  is  illegal 
3  No.  the  string  assignaent  in  line  40  is  illegal 
£  No.  von  cannot  read  data  into  a  string  '.line  10  is  bad) 

C  Ves.  all  stateaents  are  legal 

ENTER  the  letter  ogoosite  the  correct  answer'* 

NRCNS  -  all  these  assignaents  are  legal 

ores-:  ENTER1' 


String  Assignaent 

SO  READ  AS.SS 
20  PRINT  AS 
30  AS  :  3S 
40  PRINT  AS 

SO  DATA  "THE  SR1MCH“. “IS  COS I NS* 

SUN 

THE  GRiNCH 
IS  CONING 

Notice  that  As  aas  converted  to  B$.  ano  all  tne  oata  «as 
orir.ted  out  bv  using  iust  AS  in  orint  stateaents. 

cress  EN’ER" 


443 


*****  Listing  of  Progras  'LESSQNi/TXT’  ***** 


07/22/33  *  01 


String  Assignment 


10  READ  At. St 
20  PRINT  At 
30  At  =  81 
40  PRINT  At 

50  DATA  "THE  SRINCHVIS  CQNINS” 

Notice  the  dollar  sign  is  alwavs  included  with  a  string 
variable.  The  dollar  sign  tells  the  ccaouter  to  treat  the 
variable  as  a  string  instead  of  as  a  numeric.  Also,  whenever 
vou  assign  data  to  a  string,  it  aust  either  be  another  string 
or  it  aust  be  enclosed  in  ouotes. 

cress  ENTER" 


Assign  NOii  IS  THE  TINE  to  a  string  variable  called  NNt 
and  ase  line  nuaber  10  as  your  stateaent  nuaber. 

Put  one  blank  between  terns. 

ENTER  vour  answer  .now  1 

KRONE  -  the  correct  answer  is  10  NNt  =  “NON  IS  THE  TIME" 

<vou  could  have  also  answered  10  NNt  =  *  NON  IS  THE  TINE  “i 

sress  ENTER" 


tou  can  also  INPUT#  string  data  Proa  an  external  file. 

1  the  following  orogra*  assures  that  a  file  named  TEST  was 
oreviousl/  created  on  disk) 

20  G='£N’I".  2.  "TEST" 

3D  IF  ECF  •:  1 :  THEN  END 
30  INf t'Tll.At 
4  0  'R'.Nt  At 
-2TZ  20 

A  crcgras  sue:  as  this  is  used  tc  read  m  vour  naae  when  voj 


‘4? 


»*♦**  Listing  at  frag ras  'LESSONs/TH'  *»**» 


07/11/83 


ta/.e  /cur  test  at  the  end  of  each  lessen.  The  original  is 
enhanced  a  little,  aut  the  SASIC  idea  is  tne  saae. 

Cress  ENTER'' 


which  dc  vou  wish  to  do? 

A  £c~¥'.nue  on 

8  Review  ihis  section  again 

cress  the  .etter  ocoosite  the  correct  answer  and  dress  ENTER"  ft 


STRING  ASSIGNMENT 

As  we  showed  vou  m  the  introouction.  /ou  assign  strings  to 
a  variable  and  then  *ou  can  or i nt  the  variable  anvwhere  in  the 
crigraa.  That  sales  it  easier  to  write  long  oragra*  lines, 
because  vou  don't  have  to  keen  typing  in  the  teat  everv  tile 
vou  want  to  use  the  string  data. 

■cu  can  assign  data  to  strings  using  anv  at  the  statements  we 
used  to  assign  nueeric  data  to  nuaeric  variables.  LET.  READ, 
and  INRUT  are  ail  used  with  string  assignaent  (LET  is  optional 
»ust  as  it  is  with  nueeric  data'. 

cress  ENTER" 


Are  these  statements  legal T*  iassuae  the  orogra#  is  just  tor 
deacnstration.  and  that  B*  is  blank) 


10  READ  ft* 

20  INPUT  ft* 

30  lET  ft*  =  3* 

40  ft*  ^  "NGN  IS  THE  TINE" 

JO  SATA  "NGN  IS  THE  TINE" 

A  No.  the  _ET  stateeent  in  line  30  is  illegal 


'I 


*****  listing  of  Rrccraa  'lESSQN6.TXT’  »•*«* 

S  No.  the  string  assignaent  in  line  40  is  illegal 
l  Me.  you  cannot  read  data  into  a  string  time  10  is  gad; 
S  Yes.  all  ststeaents  are  leoal 

ENTER  the  letter  oooosite  the  correct  answer? 

kiRCNG  -  all  these  assignaents  are  legal 

cress  ENTER7 


String  Assignaent 


10  READ  fit. St 
20  PRINT  At 

30  At  =  at 

40  PRINT  At 

30  DATA  “THE  GRINCHVTS  C0rtIf<G“ 
RON 

'HE  SR  INCH 
IE  CORING 


Notice  that  At  was  converted  to  St.  and  ail  the  data  was 
ormted  out  bv  using  just  At  in  onnt  stateaenrs. 

oress  ENTER" 


r  String  Assignaent 

:  10  READ  At. St 

25  PRINT  At 
30  At  =  8$ 

r  -0  PRINT  At 

30  DATA  'THE  SRINCHVIS  CDlUNG" 

Notice  the  dollar  sign  is  always  included  with  a  string 
variable.  The  dollar  sign  tells  the  coaouter  to  treat  the 
1  vanaoie  as  a  string  instead  oP  as  a  nuseric.  Also,  whenever 

-ou  assign  data  to  a  string,  it  aust  either  be  another  string 
cr  it  »ust  be  enclosed  in  suotes. 


451 


r 

i 

l 


07/11/33  -  01117:40 


1 


*****  Listing  of  Prooraa  'LESSGNb.TXF  ***** 


07/11/83 


cress  ENTER" 


Assign  NGN  !3  THE  TINE  to  a  string  variable  called  NNf 
and  use  line  nuaber  13  as  vour  statesent  nuaber. 

Put  one  blank  between  terms. 

ENTER  vour  answer  not*  " 


WRENS  -  the  correct  answer  is  10  NN$  -  "NEW  IS  THE  TINE" 

ivau  could  have  also  answered  10  NNt  =  ■  NOW  IS  THE  TINE  ”! 

cress  ENTER" 


?cu  can  also  INPUT#  string  data  frca  an  externa!  file. 

'the  following  sragras  assuaes  that  a  file  naaed  TEST  was 
orevicusiv  created  or.  disk) 

*CCyT"  '  f-fr^Tn 

jJ  !?  ECFil;  THEN  END 
3C  INFGTtl. At 
40  PRINT  At 
S3  eG’C  20 

A  orogran  such  as  this  is  used  to  read  m  >our  r,a*e  when  .ou 
take  vour  test  at  the  ena  of  each  lesson.  The  original  is 
enhanced  a  little,  but  the  BASIC  idea  is  the  sut. 

Dress  ENTER' 


which  do  .ou  wish  to  do 


E  Re.-.ew  t'is  sect. on  again 

letter  oooosite  the  correct  answer  and  cress  ENTER"  A 


ycce 


*****  Listins  of  P'rooras  'LESSGNJ/TXT’  ***** 


07/11/33  -  0*  1  17:40 


> 


r 


String  AfifiATs 

leu  can  assign  string  data  to  arrays  in  the  saae  way  as  you 
assign  nuaeric  flata  to  arrays.  Nearly  all  the  rules  are  the 
saie.  The  following  is  an  exaacle. 

13  CLEAR  20CC 
CO  3M  At  ,100 1 
30  i  =  0 
A0  1  =  U 1 

SO  INPUT  'ENTER  uo  to  99  strings,  ENTER  ’END’  to  stoo'SMlX) 
J0  IP  AtU!  =  “END”  THEN  END 
70  5QTC  A0 

oress  E.NTER'! 


II  CLEAR  2000 
20  BIS  At; 100) 

<  =  o 

AO  1  =  1*1 

SO  INPUT  'ENTER  us  to  ’?  strings.  ENTER  ‘END'  to  staa’iAMX/ 
ed  :■  At  a:  -  “END*  THEN  END 
*0  SCTQ  AO 

Notice  the  CLEAR  stateaent.  Reaeater  that  vou  noraail*  have 
only  SO  -  100  characters  of  string  soace  available,  and  if  m 
are  going  to  need  acre,  you  need  to  tell  the  cosouter.  Also, 
note  the  DIN  state-sen  -  «e  reed  declare  our  array  sice  if  it 
:=  over  10 

cress  ENTER'1 


Al 


:v  <  = 


•  c* 


'««  Listing  of  frwraa  ’L£533Me/TXT’  »*♦*»  O' 


SO  INPUT  'ENTER  as  to  99  strings.  ENTER  W  to  stoo'iAtu; 

2‘j  IF  AS! 5)  *  "END"  THEN  END 
TO  GOTO  J) 

'he  .arisBie  i  acts  as  a  counter  to  reference  tiie  orooer  pocket  of 
the  string  a rra.-.  The  string  arrav  is  referenced  exactly  like 
the  enteric  arrav.  Note  that  this  progra*  will  only  read  in 
the  data.  If  vou  want  to  print  it  out,  vou  aill  have  to  see 
sose  sere  stateaents  on  the  botto#  of  the  pre-eras. 

press  ENTER? 


What  is  the  CLEAR  statement  for  in  SASIC" 

A  To  clear  extra  neater  soace  for  tne  computer 
B  To  clear  extra  string  soace 
C  To  cerate  all  n.ater  variables 
D  To  clear  the  screen 

E  To  help  the  orograaaer  understand  acre  clear i v 
ENTER  the  lette-  ojposite  the  correct  -r.saer"  B 
CCPREC’ 
cress  ENTER" 


String  ARRAVs 

i:-  clear  :ooo 

CO  DIN  AS; DO) 

:o  i  -  "j 
40  <  =  tn 

CO  INPUT  'ENTER  uo  to  99  strings.  ENTER  'END’  to  stoo'iASit: 
60  IF  AIIS;  S  "END"  THEN  END 
')  GETS  40 


The  rule  for  the  DIN  statement  is  the  ease  as  for  outer ic 
arra-s.  ifhat  is  the  sax  taut  sice  of  one  leg  of  a  string  arrav 
if  -ou  don't  use  the  DIN  statement  ...  t.-pe  .  •  answer  not? 


ooraa 


.EaSONfciTXT’ 


*****  List; no  or  F'r 


So?.ewner8 


In  this  esse,  tne  ’•*’  svabci  served  to  "atfa’  the  two  strings 
toother  ana  crests  another  strino. 
ones?  ENTER'1 


inat  is  the  cutout  of  the  f  allotting  oracraa? 

ID  At  =  ‘FLASH" 

;>D  El  =  'DANCE" 

:■!  PRIST  At  *  St 


DANCE 

C  CLA3HDANCE 
C  OANCEFlASK 


ENTER  tne  letter  oocsosite  the  correct  answer''  C 

ccrse:t 

cress  ENTER.' 


co  -ou  wise,  to  to" 

:e»  f  is  section  again 

tte  let*. s’-  occcsite  tne  correct  answer  and  oress  ENTER 

String  Functions 
For  this  section  *cu  a; 11  sennits!*  need  ,our  SASIC  nanual. 


Listwe  of  Freer ae  ’LESSGfte/TxP  ***♦» 


tf:  arjthsetic  ..actions,  there  are  STRING  functions. 

IS  functions  are  used  to  aanioulate  or  exslore  the  content 
string.  2n  the  nest  screen  there  are  several  exaaeles  of 
IS  functions.  «e  mil  go  over  several  of  these,  but  vou 
not  have  to  aeeorue  tr.ee.  Rather.  »ou  should  order  stand 
it  vou  need  to  access  or  aodifv  anv  kind  of  string,  vou 
irobabiv  find  a  string  function  that  will  do  the  ;oe  for 
String  functions  can  oe  used  as  oart  o;  USER  functions 
iu  aa*  m  lesson  5. 


.. ENTER  for  soae  exaacles  of  strino  functions? 


Etnno  Functions 


2!  CFSl'.e<o- 
Z)  F R£  '•  £tn  r,3 ; 

*)  ime>s 


5>  LEHistring; 

zi  HIS* '.string. oosition. length 
RIGHT* '.string. length; 

3’  LEFTS tstrinc.lencth! 


t  first  jla-.cs.  tress  functions  look  like  a  lot  of  SREEh.  ir 
set.  tre.  loo:  o-ett.  oat  it  second  glance'  Hoasver.  thev 
sail.  sre  srettv  sea*  to  use.  once  »ou  understand  ones.  IN 
est  «av  to  learn  no*  to  ,se  the*  is  to  aa*e  a  s.ho-t  orograa 
.r.j  use  tree  me  at  a  tiae  until  vo.  see  what  thev  do. 


o:  o.er  eta.«Ie5  of  a  couole  to  nel: 


■  at.-r  nn. 


s  the  fclloxing  stateeent  TRUE  or 

trine  functions  are  used  to  aanioulate  data  at  this  strino 


**♦*» 


*««  Listing  or  freer a*  ’LESSOSi'TJT’ 


C  H  l 
3  2 


ESTER  the  letter  Gscosite  the  correct  answer ^  2 

-  sum: 


-  r  zee 


ENTER-' 


3tr  1  rta  functions 

10  rit  =  *Sv  aching  fingers" 

EC  PRINT  LENiiSJ' 

CENistrinc)  u  a  function  that  returns  tne  length  at  tt 
that  is  m  oar en thesis.  In  this  case  it  should  return 

•hat  is  the  .slue  or  tEN.’TCB  Shl'T*:' 

H  l  1 

Z 

ESTER  the  letter  ooccsite  the  correct  answer'  R 
wRE.VS  -  the  correct  answer  is  2 
cress  ESTES" 


New  <ou  have  to  So  soee  wort  ter  .ourself.  what  will  1 
cutout  :f  the  following  sracrae" 


*«*  Listing  of  Procraa  *L£S33N6/TXT'  ***** 


2  Nothing  «ill  be  outout 

ENTER  the  letter  ooposite  the  correct  ansner'  A 

CORRECT 

cress  ENTER? 


l!)  A$  =  "!*v  aching  fingers" 

20  PRINT  h!DJ ;A$,4,oi 

ENTER  the  cutout  or  this  sragrat"'  aching 

CORRECT  -  Vi  glad  to  see  vou  use  the  book: 

oress  ENTER? 


11  AS  *  “tv  aching  fingers" 

20  ?F'I»T  RiSKTKAM? 

ENTER  the  cutout  of  this  crooraa'1  8SPs 

CORRECT  -  good  ict 


oress  ENTER? 


String  Functions 

Here’s  an  interesting  function,  it's  called  INkEVS  and  it 
strobes  »cur  keabaard  ONCE  ard  if  a  tev  is  secressed.  it 
-stums  the  character  that  *as  oressed.  Here  is  an  ex  aid 
hoi*  to  use  it. 


1)  IF  IN’EVt  s  "S*  THEN  END 
CO  GO "3  ID 

1‘  <3t  tvoe  this  oroora#  in  enact  I r  as  shorn,  and  RON  it. 


***♦♦  Listing  of  Prograa  'LESSQX6/TXT’  m« 


j 1 1 1  /  3  j  ~  )  1 


mill  keeo  running  until  you  aress  the  'S’  lev.  Try  it  when  vou 
are  tone  Sere. 

press  ENTER" 


liluca  do  vou  *i5:i  to  do? 

A  Continue  as 

B  Review  true  section  again 

cress  tne  letter  opoosite  the  correct  answer  ana  cress  ENTER"'  a 


which  do  vot»  wish  to  da? 

A  Continue  on 

B  Review  this  section  again 

cress  the  letter  ococsite  the  co'rect  answer  ano  oress  ENTER"'  A 


If  you  wish  to 
ontmue  to  the 


ENTER  an  R  or  a  "  E 


i'Ou  have  finished  the  first  cart  of  lesson  a. 
review  this  tart,  tvoe  tn  ’S’,  if  you  want  to  : 
rest  half,  t/ee  in  ’C’ 


Swing  to  the  --e.it  part,  please  standov 


tESSCN  s 

"‘•is  is  the  second  cart  of  a  two  oart  lesson 
It  is  divided  into  tne  following  sections. 


Introduction 


4.  nSfeiete; 


*****  Listing  Gt  Proqraa  ’ LESSONs; TST'  ***** 


2;  Starting  lEDIT/emti  5)  X (tend  line! 

V  iSFACEfiAR.  nSiearch!  a!  nCihange).  I  insert) 

7)  TEST 

A  r»  taking  this  tart  in  its -entirety. 

S  !  wish  to  review  selected  areas  ior  take  the  test.’. 

C  1  want  to  go  to  the  first  Dart. 

E  1  *ant  to  return  to  the  fieri u. 

Press  either  casual  A  3.  C.  or  2  ana  then  sress  ENTER'  A 


Introouctior. 


This  aart  of  the  coaouter  assisted  instruction  orograa  has 
nothing  to  do  with  BASIC.  Instead,  it  .s  about  the  Microsoft 
Editor  which  allows  vcu  to  edit  BASIC  orograa  statements  as  vcu 
3on  t  have  to  ,-et/oe  a  whole  BASIC  line  just  oecause  of  one 
t-.;o,  Using  the  editor  lakes  it  .erv  east  to  alter  the  line. 

Until  <ou  get  faaihar  with  the  editor,  you  sa.  wish  to  aeae  a 
little  'cheat  sheet’  so  you  can  have  the  ooaaands  available  for 
suici.  rs£ersrce.  Throughout  this  oart  ;cu  should  have  vour 
saruai  ooer  to  the  editor  oortior.  so  <ou  can  fallow  along. 


o'ess  ENTER' 


INTRODUCTION 


'he  otjeot  of  this  half,  will  be  to  get  vou  fail  liar  with  the 
editor's  sev  cossands.  The  lessor,  will  not  teach  you  all  the 
cossands  available.  However,  the  core  of  tncwledoe  it  gives 
*3.  will  let  vQu  start  editing  BASIC  orograss.  For  ease  of  the 
acre  sooh: sticatsd  cosoancs.  vou  should  refer  to  vour  Kicrs- 
soft  lanuai. 


*****  ListinG  of  Frcqraa  'l£S5CN4/TXT’  ***** 


Starting 

The  editor  is  line  oriented  .  aeamng  that  you  ocerate 
on  one  line  at  a  time  .and  not  or,  a  screen  of  data  1 1  fee  .ou  do 
*ith  a  «crd  orccesscr) . 

Throughout  this  lesaan.  we  will  Oe  using  one  esaaele  line  to 
illustrate  all  the  coeiancs.  That  line  is  listed  below. 

for  i  -  s*to'7  : print  next  : 

Tns  colons  for*  «hai  is  ca.ZM  a  MULTI  STATEMENT  line.  Each 
cine  e  colon  is  entered,  the  cosouter  treats  the  data  following 
it  as  a  new  line.  Therefore,  an  the  above  line  we  have  three 
stateaents.  Oivicuslv.  there  are  several  errors  in  the  line, 
oress  ENTER" 


Starting 


».  *  s*t:7T  : PRINT  c  NEXT  Z 

1*  «e  -anted  to  EDIT  this  line.  «e  -cold  i/os  in  the  «crd  EDIT. 

lowed  0/  the  line  nu.ooer.  In  this  case.  »e  not Id  tvoe  in 
E;:t  ;}.  tot  ii>  enter  the  EZI'or  m  ether  wa.s,  but  for  this 
.essor,  -e  will  a. wa.s  use  the  eU.  lime  neuter,  s.ntai;. 

Alwa.s  access  the  editor  fros  the  1MMEZIATE  sede. 

If  <;u  want  to  EXIT  the  EH 5 Tor  after  you  are  done  editing,  ttiei 
,tu  iest  oress  ENTER.  Pressing  ENTER  fro*  the  EDITOR  ,iode 
ucdates  the  line,  and  outs  vau  tact  in  IMMEDIATE  sode  again. 


Starting 


*****  uistmg  at  Prograa  ’ LEaSQNi/ TXT '  ***** 


07/11/8 


In  the  aDove  esaaole.  *e  tvced  in  the  no rd  EDIT  !0,  and  the 
■coacuter  out  as  in  the  EDIT  node.  Note  that  the  line  nueber 
«e  are  EDJTing  aaceared.  The  cursor  aould  noraallv  he  flashing 
just  to  the  right  of  the  line  nuaber. 

press  ENTER'’ 


T.oe  in  the  ccaaand  to  edit  lint  10 
ENTER:  the  coasand  hex7  EDIT  10 
50CC  ....  net* 

vau  are  in  the  EDIT  aode.  ahat  kev  do  vou  press  to  er.it  the 
EDIT  »Se?  ...  Press  the  lev  no*  ...  DON'T  PRESS  'BrEAh  or 
•  CONTROL.'  C 

EDIT  10 

10  FDR  <  =  sets:?  : PRINT  V.  SEtT  Z 

Note  hc«  tne  res:  of  the  line  aoaeared  after  »ou  oressed  ENTER ' 
That's  the  «a,  it  xcdlfi  ftaesen  it  von  xere  actv.aH.  doing  it. 

oress  ENTER’ 


hSr.4CEB.AR,  nSlearch! 

To  save  the  cursor  over  the  line  vou  are  editing,  you  si  as! . 
sress  the  scaeshar.  and  it  «ill  aeve  over  one  character. 


ror  esaiole.  let's  sav  vou  entered  the  edit  aede  and  the  cursor 
is  tust  on  the  right  of  the  line  nuaser.  So  ahead  and  press  tne 
idacehi'  until  /ou  get  to  the  end  of  tne  line. 

•  a;:er  the  ’.me  is  printed,  oress  sdscecar  once  aore  to  go  or.t 


AD- A 134  386 
UNCLASSIFIED 


COMPUTER  ASSISTED  INSTRUCTION  IN  BASIC(U)  AIR  FORCE  4/ 

INST  OF  TECH  WR IGHT - P AT TERSON  AFB  OH  SCHOOL  OF  SYSTEMS  V  4 
ANO  LOGISTICS  D  J  CREAGAN  28  SEP  83  AF I T- LSSR-29-83 

F/G  9/2  NL 


rcaaans.  Keaeace-.  .3j 
are  in  the  sfiitcr 
.cl  car  use  the  bees.  irr:-« 
are  ed:ti33.  and  reoiabe 
re  t:  srsctice  tr.is  ar.i 
!.  aa.be  Tust  lit;=  r.  a  let. 


.rsusr  an:  creu  IV  V 


..is.  -c 
’.car*  ;r 


aracters  a-ssir,:  -  «i£ 

wH;.  5  IH i  rtt  ma" 

■?s:n:  •?•’  :c  r 

ts  start  a:  l  ;n  tr.s 
1  ?ust  :e;:rs  tie  t:T 


k 


♦*  Listin?  ot  Fraorw  'LS3S2HS/TXT’ 


*****  ustiaa  at  P-agraa  'IssSGSte/TUT'  ***♦♦ 

ENTER  a  to  3o  this  aaam.  eise  ENTER  an  fi 


nCihanoe:  t  i insert! 


Nith  scse  or  the  ease  iagic  we  envosea  before.  we  will  also 
out  soaces  in  the  ersaer  olaces  of  the  test  line.  adam. 

•  au  would  noraallv  use  .cur  nC  or  I  cowand  to  in  ub  the  line 
o.t  I  reel  aretU  aagicai  today.  so  I  want  to  do  it. 


. .  *  *.  i  *.  ttMMnr.r 


AMr.ri'3 

rrrr 


5 OOF  . CRAASS3HHHH 

I  OF  3RGS3UN0 1 TU 1 1 A3LFUG !  U)**Hi<torrrrroo . 


tini  1  e 

. .OOOOBS' 


Ch  well,  we'll  leave  it  uo  to  »ou  to  do  in  vour  oractice 

tcSaiOfiE. 


;:5S5 


whion  do  >au  wish  to  :o^ 
r  Continue  on 

5  Review  this  section  again 

cress  the  letter  ocoosite  tne  correct  answer  and  oress  EN'£F? 


Ou  ha.e  finishes  the  lessor,  and  you  can  now  take  the  test. 
1;  .£ u  wish  to  review  oarts  of  the  lesson.  ENTER  an  ’S' 
else,  if  .Ou  want  to  continue  to  the  test  ENTER  a  'C 

ENTER  -our  choice  now  ‘ft  or  Cl"  C 


Seme  to  test.  Please  wait  one  soaent. 


:1NRI 


.  t£  3 on  t) 


474 


07/11/33  -  oi:  17:40 


**♦+*  Listing  ct  Prograa  ' L£5SQN6i TxT'  ♦**** 


Tms  test  consists  of  l;  ouestions.  vou  sust  get  70  oercent 
at  tnea  correct  to  bass.  1  that's  7  right  out  ot  the  ID  aues- 
tions/.  dse  only  caoital  letters  in  your  answers,  don’t 
include  e«tra  scaces  or  letters. 

3000  LUCK! 

gress  ENTER  to  continue? 


Ahat  is  wrong  with  the  following  stateaent-' 

:o  ps  =  *Ki!*:8«  *  ps  :ss  -  leftsicS.i;  .-print  bs 

*  Multi  Statesent  lines  are  not  allowed 
5  The  assignment  of  values  between  hi  and  81  are  no:  >ahd. 
C  'he  strings  were  not  initialized 
-  Nothing 

EN'E'  the  letter  oooosite  the  correct  answer"  D 

CCRRECT 

cress  ENTER" 


K  AS  *  "Hi '":3s  *  AS  :3S  -  LEFTS  IBS.  1)  : PRINT  SS 

what  is  the  outout  of  the  above  orograa?  wou  tav  use  .our 
3/tsIC  eanual  to  loo!;  uo  ‘eras) 

ENTER  the  outout  now  EXACTLY  as  it  would  aonear’  Hi' 

W5CN3  -  the  correct  ars«er  is  H 

1*  AS  =  Hi  and  BS  -  AS.  then  the  left  character 
cf  BS  is  an  H.  Bee  cart  1. 


475 


*****  Listing  of  Progra*  'LE3SGN6.TXT'  ***** 


Stoat  is  wrona  with  the  foilonino  oreoraa. 
:c  m  i*  :  to  20 

20  Will  =  •0:‘ 

zi  mr  t 


f.  *ne  arrav  is  not  dimensioned  aroceriv 
3  You  cannot  address  a  single  duensioned  arra.-  with  a  loco 
C  The  'O'  should  not  be  enclosed  ir.  Quotes 
2  Nothin: 

ENTER  tne  letter  cocos: te  the  correct  answer!'  a 

BROKE  -  the  answer  is  ft  lit  should  be  DlSensioned  to  20! 

See  nart  1.  String  firravs. 

press  ENTER" 


»r. at  : 

s  the  cutout  of  the 

fcl lowing  orcgraaT 

It  ft* 

=  "Hi ' *:8t  =  ft*  :Et 

*  LERTtiSt.l!  -.PRINT  fit 

20  8* 

*  At  +  85 

ENTER 

»our  answer  EXACTLY 

as  it  would  aooear’  HrH 

ZCRF.El 

;- 

cress 

ENTER? 

ahat  is  the  output  of  the  foil  own?  sracraa'' 

10  ft*  =  "Su.1EiiHE.RE”: At  =  H1DS : AB .  1 . 4 > : PRINT  At 
ENTER  .our  answer  EXACTLY  as  it  would  aooear '  S01E 


arm 


Vi 


07/11/83 


Tp-jp." 


*****  Listing  of  Prograa  ’LESSONi/TXT'  **♦♦* 

ar.it  is  tiie  coaaand  vau  would  enter  to  edit  line  nueoer  50  of 
a  oracras" 

ENTER  vour  answer  EXACTLv  as  it  would  aooear"’  EDIT  50 

CORRECT 

aress  ENTER"' 


Assuae  vcu  are  m  the  EDIT  aode.  Vau  wish  to  olace  tne 
:ursor  aver  the  second  accurance  of  tne  letter  F;  m  vour  line. 

what  is  the  coaaand  vou  would  use" 

2ER 
CCS 

-rr 

1  soacecar  R 
ENTER  tr.e  letter  aooosite  the  correct  answer"  A 
CORRECT 
aress  ENTER"’ 

Assuae  vdur  are  in  tne  EDIT  aode 

wr.at  is  the  caaaend  -/cu  would  use  to  insert  test  startmo 
where  .Our  Cursor  is  new. 

ENTER  the  cofiand  now"  I 

CCRREOT 


3 

C 


07/11/33  -  oi:  17:40 


cress  EWER" 


*****  Listin'?  o*  Prograa  *LESSQMa/TXT’  ***** 


where  you  can  review  other  lessons  or  quit 


For  icaework,  you  aav  wish  to  cnar.ge  vaur  inventory  orograa 
so  that  it  will  handle  string  data.  That  wav  you  can  include 
the  nates  of  vour  furniture  :n  vour  file.  However,  we  leave 
that  uo  to  vou.  Hasta  Luego: 

aress  ENTER  to  return  to  MENU? 

Break  in  4 2 50 
Readv 

s.stei'reset  *oo' 
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**m  Listing  o*  Prograi  ’HB2’  ♦*♦** 


07/12/33  -  00:12:07 
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***** 

:na 

■d*  Prsaraa  HW2  **♦♦♦ 

2450 

IF  D 

=  0  THEN  GCTG  1300 

i  4oO 

SE.1 

IF  D 

doesn't  sauai  0  and  :t  doesn’t  eauai  tne  sresent  a 

14"0 

m 

201 S! 

t.  then  ne  read  rthGTHES  data  oGir.t  and  check  it  all 

;450 

juTu 

!  ?c/' 

14r0 

5  Pm 

isoo 

END 

1510 

CE!1 

the 

taiiawna  suDroutise  clears  the  screen 

1550 

EGR 

i  - 

1  TQ  24 

.  r-_A 

ERIN 

T 

i 

1540 

*t”  * " 

’  1 

1550 

'ETUFN 

»***♦  Listing  of  Prograi  -HH3’  »#♦♦# 


o’/12/s; 


10  sosue  7:c 

20  PRIST'For  veer  lesson  2  hoeewori;  assio.naert.  *nte  a  aroarae* 

30  ?F: I MT " tr.at  requests  three  r.ueoers  froa  the  user.  ar,q  outs  the” 

4C  PRWr.uaBers  in  an  arrav  that  has  seen  Dimensioned  to  3.” 

50  PR.IhT'Firall*.  qrint  the  arrav  to  the  screen  so  that  the  nutbers" 
sv  PRIMT ‘aaoear  in  A3CcK3ISt6  order.  Use  a  FOR  NEXT  loco  in  vocr  sroora*. * 

70  PRINT 

30  PRINT* I  have  saae  a  sascie  orograe  that  satisfies  the  recuiresents.  fou” 

:0  PR  IN7*aa»  RUN  it  or  list  it  to  the  or  inter  to  see  how  it  worts.” 

100  PRINT*  If  .cu  choose  choice  3.  be  sure  vour  onnter  is  ready.'’ 

I!0  PRINT 

122  REI N’4«.h:ch  do  .cu  want  to  do’* 

I3C  PRINT 

143  'PINT*?  RETURN  TO  MENU” 

iso  sri»t*s  ns:  prdsrm  to  printer* 

1:3  F'INT*:  RUN  THE  PROGRAM* 

pp’.;jT 

1 30  INPUT'Enter  vour  choice"!;! 

190  IP  Tl  =  'A*  THEN  RUN  “MENU* 

.30  IF  '5  *  "S'  THEN  PR  INI : PRINT " Be  sure  ts  tvoe  in  RUN  when  the  srinter  is  dene 

2 1 C  i:  T$  =  *C*  THEN  53SUB  T2U:PR2NT*Vec  ws:  t.se  m  RUN  when  the  or  asm 

e n 2 s ‘ : ? R I N T : I N P U T * o r e s s  ENTER  to  start”! TS1S03UB  7;0:RUN  220 

■*  •“  *  n*‘i 

230  RET!  This  qrosraa  requests  three  nuebers  fro*  the  user  and  cuts  the 

24'.  RE!"  ousters  m  a  three  doc  set  arrav.  It  then  Bruits  the  arrav  to  screen 

250  REM  so  that  the  ousters  socear  in  ASCEND! NS  order. 

2c 0  REN 


"'***■ 

5£j1 

R l r  st . 

we  Dimension  the  arrav  '.see  lesson  3  cart  2) 

23  y 

REN 

“  '3 

2IN  S;3 

~  ■  ■ 

T'lSr 

use  a  FOR  if  EXT  I  coo  to  as*  tor  tr.ree  numbers  .this  is  or 

„lv 

S »  n  a  •< 

ot  asms  this  crotlee.  vou  »a*  want  to  ec  it  different!.) 

’  ■'C 

R.Eh 

see  lessor.  3  cart  1  for  info  on  FOR  '07! 

"**v 

:EJ? 

-3S  <  = 

•  * 

■*  c  • 

•».r 

UT“Enter  a  huster'Jnll; 

:3V 

*,E XT  * 

**■••• 

:c- 

T3 . 

r£?l 

NOW  Hr 

orir.t  a  oe.nerai  headino  so  that  our  outset  ioo*s  a  little 

390 

better. 

1  J  >’ 

vC^ 

-I . 

'r:n*-t 

case  are  «c.r  ouabers  in  ASCENDING  orser”; 

. 

-PINT 

u:  :r* 
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*****  listing  of  Pragrat  ”HH3*  *****  07/12/83  -  00 


430  SEN  ile  can  sort  tne  .loaners  in  sanv  wavs.  sat  tfte  acst  straiont 
44C  SEN  forward  is  to  ass  IF  stateeents 
470  SEN 

430  RES  For  this  a  rob  lea,  jt  helos  to  figure  out  how  sanv  «avs  three 
490  REN  Rasters  can  occur,  (the  answer  :s  4  -  123.132.113.231.312.321; 

530  REN  That  sears  you  can  So  it  with  six  if  statesents. Isee  lesson  2  oart  2 
313  REN 

320  It  h(1KA12!  AND  A -1 2 5 A 3 i  THEN  rRINT  A-. ! 1 1 A 1 2 1 ! A 1 3 ) 

330  IF  M2) -MU  AND  AflKAQ  THEN  PRINT  A(2>SA<i>!A(3J 

340  IF  A 1 3 >  A '  1 !  AND  AU)-A«2!  THEN  PRINT  A 3) ! A U ) . A 2! 

330  IF  A 1  i • . A •  3!  AND  Ai3KAI2!  THEN  PRINT  A ( 1 } ; A 1 3) : A *.2) 

5aC  IF  A'.2;<;A(31  AND  A i 3 )  T A 1 1 }  THEN  PRINT  A(2UAi3)SAU> 

570  IF  A'.3KAC;  AND  A(2!  .Ai!)  THEN  PRINT  A 1 3> 5 A (2) ; A 1  > 

530  END 
240  SEN 

o jj  REN  Ntiew'  that  is  suite  a  bunch  at  statesents  for  tust  three  data 
HO  REN  ooints !  For  a  so  re  soohisticated  sort,  load  the  training  resort 
620  REN  sodule  anG  look  at  the  oubble  sort  routine  in  it  tuse  LOAD  "REPORT1! 
630  REN  That  routine  will  sort  an  arrav  of  ANY  length,  vet  it  is  just 
640  SEN  10  statesents  Iona.  The  secret  is  in  a  clever  use  of  FOR  NEST. 
aSO  REN 

e»C  :EN  For  sore  indorsation  an  orograes  like  that,  cnsck  out  one  of  the 
s7C  REN  sanv  books  or.  BASIC  m  voar  Ubrarv.  iou  can  do  :ust  about 
6 80  SEN  anything  in  SASIC, 
a  K  PEN 
7)3  REN 

710  .RFN  the  fell  swing  subroutine  clears  the  screen 

720  FOR  X  =  1  TO  24 

’TO  PRINT 

’43  NEXT  1 

730  RET0RN 


**»♦*  Listing  of  Prograa  ' HW4'  *«** 


07/12/33  -  00: 


lu  32336  310 

20  PRlNT"for  .-cur  lesson  4  hoaework,  inprove  the  orogra®  you  ®ade  : n " 

30  PRINT* lesson  3.  Write  the  arrav  to  disk.  Write  another  saall  orograa" 

40  PRINT  "to  '■ead  the  data  back  froa  the  disk.  THEN  an. it  the  data  ir" 

20  PRINT “ASCENDING  order.* 

60  PRINT 

'}  PRINT"!  have  sade  a  saasls  orogra*  that  satisfies  the  requirements.  iou* 

30  PRINT’aav  R2N  it  or  list  it  to  the  printer  to  see  how  it  works." 

•R;  BRINT’If  <Ou  choose  choice  8.  be  sore  vour  or  inter  is  read*.' 

100  PRINT 

liC  PRINT’sihicr  do  you  want  to  do?" 

120  PRINT 

130  PRINT* A  RETURN  TO  MENU" 

140  PRINT'S  LIST  PRCSRAN  TO  PRINTER" 

150  PRINT'C  RUN  THE  PROGRAM' 

160  PRINT 

1?0  INPUT ‘Enter  -our  choice* 5 T* 

ISC  IF  T$  -  “A'  THEN  RON  'MENU" 

I?0  IF  Tt  -  “B"  THEN  PR INT: PR INT *  Be  sure  to  tvoe  in  RUN  when  the  or  inter  is  dcne.“:LLl5' 

200  IF  Tt  *  "2"  THEN  GuSliS  3 1 0 :  RR I  NT "  V  cu  oust  t»pe  in  RUN  when  the  orograi 

ends':  PR  IiNT :  INPUT*  or  ess  ENTER  to  start  "t  TJ:  GCSUE  310:RUN  220 
210  GOTO  no 

220  REM  This  sroarsa  requests  three  witters  froa  the  user  and  outs  the 
230  REM  nue&ers  in  a  three  socket  array.  It  then  srmts  the  arrav  to  disk. 

240  REM  The  second  cart  of  the  or  oar  a#  reads  tie  data  oacr  froa  disk  and 

ISO  REM  orints  it  ir.  ASCENDING  order. 

260  REM 

2')  FEM  First,  we  DIMension  the  array  (see  lesson  3  oart  2; 

332  REM 

290  DIM  Ai3) 

300  REM 

310  REM  Then  we  ooen  a  file  to  orint  the  data  to  disk  see  lesson  4  oart  i* 

320  REM 

330  OPEN'D". I. "TEST" 

340  REM 
350  REM 

36)  REM  Then  we  use  a  FOR  NEXT  looo  to  ask  for  three  withers  'this  is  eni* 

33)  REM  av  wa<  of  dome  this  oroblea.  vou  aav  want  to  do  it  differently) . 

373  REM  see  lesson  3  oart  1  for  info  on  FOR  SEjTS 
330  REM 

3?0  REM  I  chose  to  w'lte  the  arra.  to  disk  as  it  was  entered  b.  the  user 
400  REM 

4:  fcr  ?  *  :  tq  : 

43/  !»?'JT*Enter  a  nusoer'iA'X: 

-TO  RPINTll.w  r 


*****  Listing  cf  Prcgras  ’Hi44'  ***** 


.12/33 


4.J  SET 

4aO  REil  Now  we  close  the  hie  '.see  lesson  4  Dart  2) 

470  RET 
43C  CLOSE 
495  RET 

491  SET!  we'li  stoo  the  srogra*  here  ana  let  the  user  knot*  wnat  haocer.ed 

492  RET 

193  PRINT 

494  ?RINT”The  data  is  cn  disk.  When  vou  oress  ENTER  tne  data  will  De 

4C5  INPlITVead  hack  he*  disk  and  printed  in  oraer.  Press  EntES*!TI 

494  REfl 

500  RET  Now  we  print  a  general  heading  so  that  cur  output  loots  a  little 


!’/J  PRINT 

54v  5R!M 'These  are  -/our  nutters  in  ASCENDING  order"; 

550  PRINT 

5i0  REil 

570  RET  Seen  the  tile  tor  input  and  read  the  three  data  ooints  into  arra. 
530  RET 

5’?  SPENT'.  1. '‘TEST" 

SO 0  m  '  -  i  TC  J 

410  INP'JTtl.AT 

s20  NEXT  i 

s:o  close 

j 40  RET  ae  car,  sort  the  nuesers  in  *anv  wa»s.  hut  the  tost  straight 
o50  RET  forward  is  to  use  IF  statesents  see  lesson  2  part  2* 

440  RET 

a 70  RET  Far  this  archies,  it  tielas  to  figure  out  hew  ian.  ta«s  three 
3 30  RET  nu.thers  can  occur,  the  answer  is  4  -  l23.132.2l3.Z31.3I2.32t 


j 90  FEH 
?00  3 EH 

That  sears 

■Ou  can  do  it 

with  six  IF 

statesents. 

7  *  "< 

IF  Ad  A. 2! 

AND  AO'.AO 

THEN  PRINT 

A ; ! ! i Ai2; ! A i 3; 

'ZC 

IF  Ai2i-Aii ; 

AND  A  i  1 1  A 1 3 ) 

THEN  print 

A  ( 2 ! ;  A  i  1 ; ;  A !  3 ! 

Aj 

IF  ‘  rl  *,  1  \ 

AND  AT  . AT 

THEN  PRINT 

A(3);A-.D.A  2: 

IF  Ad!  ,A‘.3i 

AND  AO  -.A  ,2; 

then  PRINT 

A !  1 . !  A !  3 ; !  A  ( 2 

"*  “  ;"l 

IF  A ■ 2 f  A ! 3 ! 

AND  A  >.  3  J  a  A  i  1  : 

THEN  PRINT 

A 1 1 ;  A ..  3 1 ;  a  i , 

7t‘. 

IF  A;3!- -(2: 

AND  A  2 ;  A 1 1 

THEN  PRINT 

A  3> ;  A  <  2." ;  A.  i 

END 

73 y 

*9-  RET 


3vt  RET  tre  Allowing  suoroutme  dears  the  screen 
310  F2R.  ?.  *  :  T3  24 
:2  PRINT 
330  NE'-  ? 

340  RET.5N 
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*****  Listing  of  Prograa  ’HN5’  «**»» 


07/20/83  -  02:07:24 


10  6QSUB  2270 

20  PRINT*Vour  hoaeuork  assignees!  far  lesson  3  is  GREAT'  You  knoe  enough* 

30  PRINT’about  coaputers  to  uke  a  useful  prograa  that  could  ease  your* 

44  PRlNT'uorkload.  Tour  hoaeuork  assignaent  is:* 

30  PRINT 

60  PRINT*  Nrite  a  prograa  that  will  urite  a  rKord  to  disk  of  all  the* 

70  PRINT*  stock  nuabers  of  furniture  that  are  in  your  offica.  (only  use* 

80  PRINT*  a  feu  nuabers  to  start,  until  yon  get  it  debugged' I* 

00  PRINT 

100  PRINT*  Next,  urite  a  progru  that  util  let  you  add  a  record  onto* 

110  PRINT*  the  end  of  the  sequential  file  of  stock  nuabers.* 

120  PRINT 

130  PRINT*  Finally,  urite  a  prograa  that  uill  search  through  the* 

140  PRINT*  disk  file  for  a  specific  STOCK  CLASS  of  nuabers  and* 

130  PRINT*  print  thea  out  to  screen,  (a  stock  class  is  the  first  4  digits* 

160  PRINT*  of  the  stock  nuaber)* 

170  PRINT 

180  INPUT‘pres5  ENTER*; TO 
HO  60SUB  2270 
200  PRINT’HINT  *1:* 

210  PRINT 

220  PRINT'This  assignaent  requires  you  to  use  a  nuaber  that  esceeds  7  digits* 
230  PRINT'and  uhenever  you  use  a  nuaber  that  long  in  BASIC,  the  coaputer* 

240  PRINT'aluays  changes  it  to  scientific  notation  (see  your  eanual).  To* 

230  PRlNT*prevent  that,  you  aust  declare  the  nuaber  that  you  urite  atd  read* 

260  PRlNT'froa  disk  as  double  precision.  The  coaaand  for  that  is:  DEFDBl  War)* 
270  PRINT 

280  PRINT* 10  DEFDBL  I* 

270  PRINT'20  I  =  121456787  10  I  *  123456787* 

300  PRIMT’30  PRINT  I  20  PRINT  I* 

310  PRINT'RUN  RUN* 

320  PRINT 

330  PRINT *123436787  1.234567E+08* 

340  PRINT 

330  PRINT'As  you  see  in  the  exaaple,  I  uas  not  changed  to  scientific  notation* 
360  PRINT'uhen  it  uas  declared  double  precision.* 

370  PRINT 

380  INPUT'press  ENTER* jTI 
370  60SUB  2270 
400  PRINT'HINT  12* 

410  PRINT 

420  PRINT'In  lesson  4,  part  2,  there  uas  an  exaaple  of  hoe  to  update  a’ 

430  PRINT'sequential  file.  Here  is  a  suaaary  of  that  exaaple.* 

440  PRINT 

450  PRINT*  1.  OPEN  the  file  for  sequential  input* 

460  PRINT*  2.  OPEN  another  net  file  for  sequential  output* 


489 


**♦««  Listing  of  Prograa  ’HN5’  »»**» 


07/20/83  -  02:07:24 


470  PRINT*  3.  INPUT  a  data  point  froa  the  old  file.* 

460  PRINT*  4.  OUTPUT  the  data  point  to  the  new  file.* 

440  PRINT*  3.  Nhen  the  old  file  is  eapty,  add  your  new  data  to  the  end* 

500  PRINT*  of  the  new  file.* 

310  PRINT 

520  PRINT'TNIS  IS  NOT  THE  HOST  EFFICIENT  METHOD,  BUT  HOST  STUDENTS  FIND  IT* 

330  PRINT'THE  EASIEST  TO  START  N2TH.  IN  THE  EXAMPLE  PROBLEM,  1  MILL  SHOU  * 

540  PRINT*Y0U  HON  TO  DO  IT  MORE  EFFICIENTLY!* 

550  PRINT 

540  INPUT’press  ENTER* 5 T4 
570  S0SU8  2270 
580  PRINT'HINT  *3*.* 

590  PRINT 

400  PRINT'To  find  the  STOCK  CLASS  of  an  11  di)  nuaher,  you  mid  auitiply* 

410  PRINT'the  stock  nuaber  by  .0000001  and  take  the  integer  of  it.  The  result* 

620  PRINT'uould  be  the  stock  class.  For  exaaple:* 

630  PRINT 

440  PRINT'stock  nuaber  *  58955746431* 

650  PRINT’58953744431  »  .0000001  =  5895.5746431* 

660  PRINT* INT (5895. 5746431)  =  5895  =  stock  class.* 

670  PRINT 

680  INPUT'press  ENTER*; T* 

690  60SU8  2270 

700  PRINT'AII  this  seeas  like  a  tall  order,  but  it  really  isn't  too  bad.* 

710  PRINT'Just  take  each  prograa  a  step  at  a  tiae.  Here  is  a  brief  suaeary:' 

720  PRINT 

730  PRINT*  1.  Write  a  prograa  that  puts  stock  nuabers  into  a  disk  file.* 

740  PRINT’  2.  Nritc  a  prograa  that  puts  stock  Is  on  the  end  of  the  file.* 

750  PRINT*  3.  Nrite  a  prograa  that  finds  specific  stock  classes  on  the  file.' 

760  PRINT 

770  PRINT'To  help  you  out,  I  have  aade  a  prograa  that  satisfies  the  * 

780  PRINT*requireaents  of  this  assignaent.  As  before,  you  aav  have  it  * 

790  PRINT’sent  to  your  printer  so  you  can  esaeine  it  at  you r  leisure.* 

800  PRINT 

810  PRINT ‘Nhich  do  you  want:* 

820  PRINT 

830  PRINT'A  RETURN  TO  MENU* 

840  PRINT’B  LIST  PR06RANS  TO  PRINTER* 

850  PRINT 

860  INPUT'Enter  your  Choice*:!! 

370  IF  T$  :  *A*  THEN  RUN’MENU* 

380  IF  T*  =  *8*  THEN  PRINT’Be  sure  to  type  RUN  when  the  primer  stops'.'LL.'ST  900-2240 
390  SOTO  810 
900  REN 

910  REM  This  is  the  first  prograa.  It  requests  stack  Is  and  antes  'ea  to  disk 
920  REM 


4Q0 


1 


*****  Listing  of  Prograa  ’HN5’  ***♦♦ 


07/20/83  -  02:0 


■’30  REN  First  t*e  declare  our  variable  as  double  precision  and  then  open  a  tile 
940  REN 

950  DEFD8L  i 

9*0  INPUT'Nhat  is  the  naae  of  the  disk  file  .ou  eant  to  OPEN* *F » 

970  0PEN*0',1,F* 

980  REN 

990  REM  Then  ue  ask  for  stock  nutbers 
1000  REN 

1010  INPUT’Flease  enter  a  stock  nuaber  <-l  to  quit)*?* 

1020  IF  X  <  0  THEN  SOTO  1110 

1030  REM 

1040  REM  Then  put  thee  on  disk  and  go  back  for  acre 
1050  REM 

1040  PRINTil , X 

1070  PRINT 

1080  SOTO  1010 

1090  REN 
1 100  REN 
1110  END 

1120  REN 
1130  REN 

1140  REN  This  is  the  second  prograo.  It  reads  in  the  file  aade  by  the 
1150  REN  first  prograa,  prints  it  back  to  a  neu  file,  and  then  lets  you 
1140  REN  add  data  to  the  end  of  the  new  file. 

1170  REN 

1180  REN  First,  declare  our  variable  as  double  precision  and  open  the  file 
1190  REN 

1200  DEFOBl  X 

1210  INPUT'Nhat  is  the  naae  of  the  old  data  filc'tFf 

1220  QPEN*I*,1,F» 

1230  REN 

1240  REN  Then  open  the  nea  file  foote  that  there  are  different  buffer  Is) 
1230  REN 

1240  INPUT'Nhat  is  the  naee  of  the  new  data  file  you  want  to  create'jNI 

1270  0PEN*0',2,N« 

1280  REN 

1290  REN  No*  read  in  the  data  froa  the  old  file  and  print  it  out  to  the  neu 
1300  REN  file  until  the  old  file  is  eepty  (see  lesson  4  part  2,  EOF) 

1310  REN 

1320  If  EOF(l)  THEN  SOTO  1390 

1330  INPUT!!, I 

1340  PRINTI2,! 

1350  SOTO  1320 

1340  REN 

1370  REN  When  the  old  file  is  eepty,  the  prograa  junps  to  the  CLOSE!  statement 
1380  REN 
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1380  CLOSE  1 

1400  PRINT 

1410  PRINT'The  file  is  transferred.  You  can  start  adding  nee  data  non' 
1420  PRINT 

1430  INPUT'Enter  a  stock  nutber  (-1  to  quit)*;! 

1440  IF  X  (  0  THEN  60T0  1470 
1450  PRINTI2.X 

1440  SOTO  1430 

1470  REN 

1480  REN  Non  no  close  the  file,  offer  to  KILL  the  old  file,  aod  end 
1480  REN 
1500  CLOSE 

1510  REN 

1520  INPUT'Do  you  eant  to  KILL  the  old  file  (Y/Nl'lTt 

1530  IF  Tf  *  T  THEN  KILL  Ft 

1540  ENO 

1550  REN 

1540  REN 

1570  REN  This  is  the  third  prograe.  ft  searches  a  disk  file  and  tells  you 
15B0  REN  the  nunber  of  occurences  of  a  stxk  class 
1580  REN 

1400  REN  First,  declare  our  variable  as  double  precision  and  open  a  file 
1410  REN 

1420  DEFDBL  l 

1430  REN 

1440  INPUT'Nhat  is  the  file  of  stock  aethers  that  you  sent  to  search"; Ft 

1450  0PEN*l*,l,F< 

1440  REN 

1470  REN  I’ve  incloded  an  option  to  search  for  ALL  the  stocknuabers 
1480  REN 

1480  INPUT'Nhat  is  the  stock  class  yoo  are  looking  for  (1  *  ALL) ";N 
1700  PRINT 

1710  PRINT'Here  are  the  stock  nutbers  in  that  class' 

1720  PRINT 

1730  IF  EOF(l)  THEN  GOTO  1820 

1740  INPUTtl , Z 

1750  IF  N*1  THEN  PRINT  l 

1740  IF  N*1  THEN  60TQ  1730 

1770  IF  INT!.0000001»X>*N  THEN  PRINT  X 

t780  SOTO  1730 

1780  REN 

1800  REN  Once  all  the  data  has  been  checked,  we  dose  the  file 
1810  REN 
1820  CLOSE 

1830  PRINT 

1840  INPUT'End  of  file.  Do  again  (Y/N)*;Tt 
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1050  IF  T*  =  mV  THEN  RUN  1590 
1860  END 

1870  REN 
1880  REN 

1890  REN  THIS  IS  THE  ALTERNATE  NAY  TO  UPDATE  A  SEfiUEMTIAl  FILE.  IT  IS  NORE 
1900  REN  EFFICIENT  THAN  THE  FIRST  NETHOD 

1910  REN  IN  THIS  VERSION,  HE  READ  EVERYTHING  INTO  AN  ARRAY,  UPDATE  THE  ARRAY 
1920  REN  AND  SEND  THE  ARRAY  BACK  OUT  TO  THE  ORIGINAL  FILE.  FIRST  HE  DIN 
1930  REN  AN  ARRAY  TO  THE  AHOUNT  NECESSARY  TO  HOLD  THE  FILE.  THEN  REAS  IT  IN 
1940  REN 

1950  DIN  A(IOOO) 

1960  DEFDBL  A  :  ’THIS  DEFINES  ANY  VARIABLE  STARTING  NITH  A  AS  DOUBLE  PREC. 
1970  INPUT’HHAT  IS  THE  NANE  OF  YOUR  INPUT  FILE'iFt 

1980  0PENT,1,F* 

1990  N  =  0  :’  N  IS  A  COUNTER  FOR  THE  ARRAY 

2000  IF  EOF(t)  THEN  SOTO  2040 

2010  N  *  N+l 

2010  INPUTIl.A(N)  ;’AS  N  INCREHENTS, ARRAY  POCKETS  ARE  FILLED  NITH  DISK  DATA 
2030  GOTO  2000 

2040  CLOSE 

2030  PRINT 

2060  PRINT'YOUR  FILE  IS  READ  INTO  THE  ARRAY,  YOU  HAY  NON  ADD  DATA  ONTO  IT* 
2070  PRINT 

2080  N  -  N+l 

2090  INPUT'ENTER  A  STOCK  NUMBER,  OR  -1  TO  .UlT’lA'.N) 

2100  IF  A(N)  <  0  THEN  GOTO  2120 

2110  SO TO  2080 

2120  REN 

2130  REN  NON  HE  XRITE  IT  OUT  TO  DISK  (E/CEPT  FOR  THE  -1  THAT  HE  ENTERED  LAST) 
2140  REN 

2150  OPEN-O*. l.Fi 

2160  FGR  Y  =  1  TO  N-l 

2170  PRINT#!, AIY) 

2120  NEXT  Y 

2190  CLOSE 

2200  ENO 

2210  REN 

2220  REN  VQILA'  HE  DID  ALL  OUR  EDITING  NITH  THE  SANE  FILE1 
2230  REN 
2240  REN 

2250  REN  this  suoroutine  dears  the  screen 
2260  REN 

2270  FOR  X  =  I  TO  24 
2200  PRINT 

2290  NEU  I 
2300  RETURN 
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*****  Li = tins  of  Rraeraa  'REPORT’  ***** 


D  SEN  Tots  eraarae  started  on  23  June  1933 
20  REM  Version  nuaber  is  1  Auqust  1933 
30  'EX 

40  SEN  Author  -  Caot  Dannv  J.  Creaean.  8F1T 
50  REX 

s4  REX  Purscse  -  Jo  read  student  scores  and  oreaare  a  training 
'0  REX  resort 

SO  RE?! 

90  REX  variables: 

DO  REX  Nt  -  arrav  that  holds  naaes  of  students 

ID  REX  31  -  Si  =  arra*s  that  hold  scores  for  tests  l-o 

120  REX  I.J.k.l.x.r.s.TS.Tl-TE  s  tesoorarv  van anles  4  counter 

130  REX 

140  CLEAR  10009 

1  So  SIX  NS *600} .Si '600: . 52 1600 i .53:6001 .34 !690 1 .551600! .36 (600) 

160  ON  ERROR  sore  1680 

D)  ;=.*):  »= i 
130  REX 


:  ?9 

REX  WE 

REAS  IN 

AL-. 

THE  SCORES  a: 

TH  ' 

CHE  FOLLOWING 

H  *  ,4 

REX  RG 

UTINE5 

220 

.icr. 

gosub 

1740 

«.  J  v 

PRINT' 

CONFUTES 

ASS 

ilSTED  INSTRUCTION1 

24o 

PR  IM¬ 

IN  SASIC" 

239 

PRINT 

CsO 

pct^T: 

RRINTlFR 

:nt 

yin 

&  C  t  a .  r  • 

.  r.  a  >1 

'HIS  ?eCSKAM 

rxADb  IN  AL- 

THE 

SCORES  FROX  ThE  DIFFERENT 

2S9 

FILES.  ” 

:Rirr 

CR1?«T' 


toil  WISH  '0  CONTINUE  WITH  2*. 


WANT" 


?RINT,fRlNTS2 
-  ft  I  t; " 


GL,r  ARE  ON  ONE  GF 


'iouK  itw.iv 


DIVES. 


J  J*.: 


IF  uE"*!TI. 


*ISH  TO  CONTINUE  ;  Ni'iTS 
1  =  *V  THEN  3G3-JS  D4u  :  3r;n**sc:ns  to  xenu 


ftuN*-“ENC 


35;  GG3U3  i?40 

360  FRIM’PRCORAX  STARTING  NO*' 
3’.  FRIST 


:v>  ;fc:  -hem  goto  us 
4oo  if  EOFtn  then  sgto  44c 

4io  >=u: 

422  :NRC!t:.N*;ti.Si'(' 


:PEI 1 


♦«•»**  L;5t;ao  of  Pragraa  'SErGfiT1  ***** 


47')  /.=»-! 

480  INPUT#!.  N$'.r. 

490  sore  40i; 

5>o  CL2SE: f=::of£rr.:. -score:- 

51 }  IF  y  -  7  THEN  SGTO  5s0 
520  IF  EOF i 1 >  THEN  GOTO  5sO 
530  !*!♦: 

540  INPUT#!.  X4UI.S3U? 


3  a  j  Z.ZSE :  Ts4‘.  OF  cN"  I  “ .  1 . "  3C0P.E4  “ 
5’0  IF  *  =  7  THEN  SGTO  aZO 
330  IF  ECFtl)  THEN  SOTO  aZO 
590  i  -  !*! 

aOU  INPUT#  1 .  Nt .  .< !  ■  34 ; i 

olO  3073  580 

o20  CLOSE ;v=5 1  OPEN*!".!.  -SCORES" 
530  IF  <-7  THEN  GOTO  *50 
b4>)  If  ECF  ( 1 :  THEN  GOTO  a30 
a50  l  -  t*'. 

bid  i N?or4*.  ura.siii) 

8-0  30*0  a 40 

a30  CLOSE :  l'so:OPEN‘I  1,  "SCGREa 
:90  IF  '(-I  THEN  SOTO  ’40 


7.Vi 

I?  EC-; 

1 •  THEN  SOTO  740 

f  • 

!  =  !*•’ 

? 

INPUT#! 

.  *1$  .  x ; .  Sa  ■  X 

‘  3  v 

3C*0  ’0 

v’ 

71.) 

2L-.3E !  / 

=  1 

“C.  ; 

;:h 

•jO 

SEN  NGW 

HE  SEARCH  C0R  DHPLICAT 

.  V 

SEN 

730 

RF.IN7 

7  ?y 

PRIN7’S 

ccr?a  are  -ead  m,  jaw 

80C 

?CR  N  - 

'*!  TO  S 

810 

IF  “;$■ 

N>  *  CHR*>:S24i  THEN  GOT 

320 

IF  «; 

-  Nfy-  THEN  SCSafi  ! 

C  7 

NETT  N 

240 

pp.irr*. 

•' ; 

35) 

f  =  T  ^  1 

9  5'. 

IF  '  * 

i-i  THEN  SGTO  330 

370 

a'CM 

u. 

33; 

SEN  »E 

CAN  3Z7-T  *HEN  HERE.  3'J* 

;  ~ 

RE/  -JE: 

I:  HAS  THE  CF’ICN  *2  30 

■tsr  ca;.  53.'t  cat  tr.e  *.aaes  .* 


zzat'j 


3a  x’.aN.  30« 


*****  Listir.s  of  ?rcqr»#  'REPORT'  ***** 


7/12/3-  - 


-So  PRINT  'BASIC  sorts  tans  a  fan  soaents.  * : PRItITtPRIJIT :  ISPtiT’Ca  »cu  »ar.t 
. !  /  N)  “ : T  * 

Me  IF  LEFT**.!*.!-!  =  V  UR  LEFTS  Tj.l!  =  *Y"  THEN  50SUB  1310 
950  RE* 

9«0  RES  T.tlS  PRINTS  OUT  REPORT  TO  SCREEN 
970  F.Efl 
33v  PRINT 

PRO  LINE  INPUT  What  is  today’s  date  >.  aonth*  daw  year  >?  *;Tl* 
print*Is  -jgnt  iY.'S)*;: INPUT  T* 

:M  IF  •EfT*lrU)  *  JN“  THEM  SOTO  99C 
;;:0  IF  LEFT* IT*. i!  »  'n4  THEN  GOTO  990 


X  REPORT  DATE:  ' ; T 1 1 

1030  PRINT  TASiS.1  “fMNE'TAPdSJ ’TEST  1  "TAB .2! > 'TEST  2" TAB ' C'9 ) J TEST  ’’TAB 


: :  t  j  for  t  =  ;  tg  r+i 

1120  IF  N fUi  -  CHR*U24f  THEN  50T3  1220 
I  ISO  IF  lEN.MMh  -  0  THEN  GOTO  iOCO 
1140  PRINT  NISI!! 


::  sort  toe  naus 


o:c 

PRINT 

04y 

INPUT  'DO  70! 

030 

IF  LEFTliT*. ; 

Afff 
•  w 

■30503  174? 

isO 

PRINT "CA I  IN 

,070 

PRINT: PRINT 

030  PRINT  TABi3:' 
3*TAB’.3«!"T£; 

,  O'tO 

PRIST 

PR  IN- 

4*TAc-.4i  = 


lisO  print  7  AB ! 1 l :  I 
•111  PRINT  TAB '.231 5 
UTv  PRIST  TAB'S!:; 
U3(!  PRINT  TABCPs ; 
IPO  PRIST  TAB '.43!; 
FAINT  'AB'.5e< ; 
:  ft  I. NT 


i  »  .  V 

. » .  u 


F  51  a;  *  0  TnEN  PRINT'1*** '.’ELSE  PRINT  SIU.’J 
F  32 !  t :  s  0  THEM  ?ftIST*****{£lSE  PRIST  S2tl»5 
F  SS.S!  =  0  THEM  PRIST4*** ''{ELSE  PRINT  33 i X ) ! 
F  34 u!  -  0  THEN  PR:NT'***”;£LS£  PRIST  54sX>s 
F  S;:.;:  =  0  THEN  PRINT"***4;El3E  PRINT  55!.;:; 
F  35. Si  =  0  THEM  RR!MT’***";ELS£  PRINT  3a •  X ; 


1.::  me ;T  ; 

;  '~r. 


1240  PRIM 

!25)  PRINT 'END  OF  PROSPAH  *  HIT  5F.EA!  OR  CONTROL  C  ’3  SUIT' 


RE.' 

R  EH  THIS  SEC  TICS  PRISTS  SCORES  TO  IIMEF'F'INTER 
REN 

L“R;n::lfrimtil?rint"date:  "Ti$;l?rint:lfrimt:J'Rimt:  '.print  1 
COMPUTES  AS5SI5TES  INSTRUCTION  IN  BASIC* 

.frimt:l?r;nt 

PRINT  TAB:S‘4NA«-,TAB  13! 'TEST  1  T-5 .23;  TEST  I'TABwS:  "TEST  ***AB' 
S-’ABisS  *TES*  i’ 

.PRINT 


iati.Ni.tU  i’EH 


1-3:  TEST  4 "AS  3 


oh*  .istina 


d*  froare*  REPORT’  ***** 


134'J  FOR  *  =  1  TO  i*i 


1350 

IF  N5U 

;■  =  CHRt 

(  * 

4!  THEN  SQ 

■G  143 

0 

1330 

IF  LEN 

Nlu);  * 

A 

THEN  SOTO 

1450 

1  77.’* 

LPRINT 

Nia;; 

1330 

LPRINT 

T«S i20i ! 

IF 

31 1 X 

“  V 

THEN 

LPRINT 

“  ***“ 

;  ELSE 

LPRINT 

Si  ' 

1390 

LPRINT 

TAB  i  30); 

IF 

S2  i  X  < 

=  0 

THEN 

LPRINT 

***** 

SELSE 

LPRINT 

r  **  1 
3--. 

1400 

LPRINT 

TAB '.40! ; 

IF 

S3 ,  X ! 

=  0 

THEN 

LPRINT 

5  ELSE 

LPRINT 

r  -* 
Gw  1 

1410 

lFRINT 

TAE'.Cj*; 

IF 

S4(X; 

=  0 

THEN 

LPRINT 

**#  fr:* 

•  £*  Q? 

» 

LPRINT 

54 1 

MZi 

lPRM 

TAP:  y)!i 

T  “ 

4b .  I  / 

=  0 

THEN 

LPRINT 

***  ' 

;ElS£ 

lFRINT 

re  / 
3JL 

1430 

LPRINT 

T  AB 1 7  > ; 

IF 

36(0 

-  0 

THEN 

LPRINT 

*Uf“ 

;  ELSE 

LPRINT 

So . 

1440 

■.PRINT 

145) 

;EXT  1 

1 

14*0  REM  FCLLOillNS  LINE  CAUSES  FORMFEED  ON  MOST  PRINTERS 
1430  REN  (SO  MAr  HAVE  TO  CHANGE  IT  FOR  rOUR  MACHINE 
*450  PEN 

I  SCO  LPRINT  CHRM4C: 

1510  PRINT ’END  OF  PROGRAM  -  PRESS  BREAF  OR  CONTROL  C  TO  END  i 
1520  GOTO  1520 


i  530 
li40 
1550 
1 5iO 
1370 
1530 
1590 
i  sCO 


REN 

REN!  THIS  ROUTINE  CONSOLIDATES  DUPLICATE  NAMES 
RET 


IF 

SI 

IN) 

■SI J 

THEN 

SI 

Y : =31 ;M‘ 

1  K 

C'f 

IN) 

’32  O) 

THEN 

SI 

Y  .’=52(74! 

IF 

33 

iNi 

S3 .  t ) 

THEN 

S3 

0*53 ’.N) 

IF 

34 

;S4 iv; 

THEN 

S4 

Y?=S4 IN) 

IF 

-c 

■IN) 

35  * ! 

THEN 

Sw 

Y)=S5!Nl 

IF 

c  *. 

•.N! 

Sa  V: 

THEN 

So 

y)*S6!») 

Ml 

Ni 

r 

CHR5 ' 1 

24/1 

epl 

see  tbe  duplicate  nate  with  1 

laZC  RETURN 
la-C  PEN 

la  50  REM  THIS  IS  ERROR  TRAP  -  IT  PREVENTS  PROGRAM  STOPPING 
1660  REM  WHEN  ONE  OF  THE  SCORE  FILES  IS  NOT  FOUND 
la’}  REM 

1 680  PRir  "FILE";  r,  "NOT  FOUND" 

IS  90  1-7 


::K  RESUME  NEXT 
IT  10  REM 

rZ.!  REM  THIS  CLEARS  THE  SCREEN  ON  MOST  MACHINES 

1730  REM 

1’4.>  FOR  X  =  I  TO  24 
1730  PRINT 
l7i'J  NEXT  J 
I*7o  RETURN 
i"3<;  REM 

l?,;i.  REM  tNis  is  tne  suable  sort  uses  to  out  the  flues  m  order 
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